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PREFACE'•“ f - : 


This manual descrihes : ;the ...Compact Iateracrive Standard COBOL (CIS COBOL) 
language for programming' microcomputers'. ' cfs COBOL is based on the ANSI 
COBOL standard X3.23 (1974) (see Acknowledgement). It also describes the 
additional “ CIS ^COBOL features '" that'r"' explo.it the capabilities of 
, microprocessors^-'-' 

Each release of CIS COBOL is characterised by a two-digit code in the form 

of « ------ •' - - - a • 


"Version number". "Release numbfer - ’ wifth^tr^Triiioa ,f ''" 5J: ®' 


AUDIENCE 


.. 1 V"^,£?c£r '1 i : ZZ V ">V T ~ZZ c .1 - 


. *'sI daT b row na™ . 


This manual is intended for programmers already familiar with COBOL on other 
equipment;'< ons tnP znsavsufiC .a : q*- 

* ' .Swtretit&i. g.td-t Ion zlar.i arts slcrlL'; .vc r: -.> 

MANUAL ORGANISATION 

T 77! bsar tm * ..ill 5-' "rar; rit-xiv /'nsatc.’D " ^ ~ 1 

Chapters 1 through 4 of the manual apply to all users and describe basic 
features of -the language; Chapters 5 -through- 7 7 describe language features 

for programming the three disk formats supportedr sequential, relative'And 
indexed. 

Chapters 8 through 11 apply to all users and desrc'ribA^Aeiiditional features 
and facilities available: with the standard language. The appendices supply 
referenda infPrmat : ioti r phrtfeen't to Air-Ayiiems. - ~ • 

' - oaq , .''•rmm.-i nq 

The manual contains the following chapters and appendices: 

&: »;.i" scape .nst-f.-*••. ’’JOSOO 7 ELA - - . ac; .* -izc tx3 : : ;v- 7 z±±r*- ■ i: 

Chapter 1. Introduction"^^ovh'icih' give§-~-'’ : -A geheiai*- description a o£ the 
language, including a broad outline of ANSI COBOL features included and 
omitted: and additional-features ofi ? €lS“ : C0«D*a c&< 3 s -- i ?- :%‘ n9 “«•** 

.3 fc-ra ersji.-reiwCp3.r- -.r : ztv sen « -:.?3,bs JOS .Cl .SIDy,-/. r • a33%y« , 

"Chapter 2. COBOL Concepts",pwhich?:describes^ 1 general concepts -of the COBOL 
language including program structure, and details of statement components 
and notation... iistsvc- ns e. r.zlr.- oxJas/txnrnr.-ss: 


"Chapter 3. Nucleus", which describes the nucleus of all COBOL programs and 
the layout of each program division therein. 

‘ - • <; ' 7 " ' 

"Chapter 4. Table Handling", which describes the handling of data tables in 
the Data and-Proceriure-:divisIons hf7 a COBOL -prbgirafn. s? - c ' 

■ " : jnsmiippr . -3 rsisr sassiS .1?. s/r ‘ * j. . 

'^Chapter 5. Sequential Input and Output", which describes the programming of 
input and output of data: in flie's ^With -Sequential format. 

"Chapter 6. Relative Input and Output", which describes the programming of 
input and output of data in files with relative format. 

"Chapter 7. Indexed Input and Output", which describes the programming of 
input and output of data in files with indexed format. 

"Chapter 8. Segmentation", which describes the facility for specifying 
permanent and independent object program segments. 

iv 







"Chapter 9. Library", which describes,-the source library maintenance feature- j 
of COBOL. 

.-."Chapter 10. Debug and Interactive Debugging", whach^.descrihes^the^baeic and 
interactive debugging features' ''available'inCIS_ CgBOL. _ 0 v f ' 

"Chapter 11. Interprogram‘ ; C6iimuhication",. which describes' the ability of CIS 
COBOL programs to interface during running and to accgs§ 8t contnjpn.-..data^ . 
enabling modular programming. . 

“'"Chapter 12. Programming Techniques and Sizing",' whichdescribes the means;'!., 
available for CIS COBOL programmers to estimate object program size and: 
includes programming techniques-,in CIS COBOL., j-y’ y :s ,-:rz?z. ars 

"Appendix A. Reserved Word Table", which lists words reserved for CIS COBOL 
functions within a program. 


:e. - 


JO'!: 


3 '"Appendix B. Character ' Set ' and Collating' Sequence", which _ : iistS- : all 
characters available and their collating sequence. 

• r.w 

(~" "Appendix C. Glossary", which lists specific terms used in "CIS' COBOL.. 

“"Appendix D. Compile Time Errors", which lists all errors that., can be 
.signalled during program .compilation. Ilt =.•••> gj... p_.: - - 

"Appendix E. Run-Time Errors", which lists all errors that can be signalled; 
...during program execution,. _i. ;r . . r; hi id: ' ET.'j ' 

"Appendix F. Syntax Summary",, which summarises -the syntax used in CIS - COBOL 


programming. 






"Appendix G. Summary of Extensions to ANSI COBOL", which summarises all 
-extensions to ANSI COBOL, provided by CIS COBOL,. ! .: r • z: r Z .1 




"Appendix H. Systems Dependent 


-i s>~: ~juo . a oz yn—it-—*r.. . 1 

Language;:. Features", which describes the 
system dependent CIS COBOL entries for use with microcomputers and those, 
r,-features notincluded because: .of.: hardware; requirements. JOSCO - '• 

"Appendix I. Language Specification", which is an overall specification. of- 
the CIS COBOL language. ^ 

gQl*- - - - r % C ' " ’ ^ rM 


RELATED PUBLICATIONS 

No discussion of operating: 'they..CIS COBOL Compiler or Run-Time system is 
incorporated in this manual. Please refer to document: 


; CIS COBOL Operating Guide- i " rxc 
(for use with the relevant Operating System) 


r. >. 
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NOTATION TO THIS MANUAL 


Throughout this manual, the following notation is used to describe the 

format of COBOL statements: 

1* worc ^ s printed in capital letters which are underlined must always 

be present when the functions of which they are a part are used. An 
error printout will occur during compilation if the underlined words 
are absent or incorrectly spelled. The underlining is not necessary 
when writing a COBOL source program. 

2. All words printed in capital letters which are not underlined are used 
for readability only. They may be written, or not, as the programmer 
wishes. 

»ixo .g.t , s~s;j.e. r ax re: n.. :.s.* : v> k'?) snx;- <- U; 

3. All words printed in small letters are generic terms representing names 
which will be devised by the programmer. 

When material" is enclosed in 
*:. i Ix cm;, the • options - within them'. " ; 5 "" 

^5. When material is enclosed in square brackets [ ], it is an indication 
that the material is an option which may be included or omitted as 
ss?sr; required^ 1 ed:: ' : 

6. When material is enclosed in square brackets crossed ■£■ ■}, it is an 
indication that the material is mandatory when the ANS (ANSI) switch is 
set (see Chapter 2) but optional otherwise. 

7. Language features that are shaded in the text are language extensions 
which exceed the ANSI standard. 

8. In text, the ellipsis (...) shows the omission of a portion of a source 
program or a sequence. This meaning becomes apparent in context. 

In the general formats, the ellipsis represents the position at which 
repetition may occur at the user's option. The portion of the format 
that may be repeated is determined as follows; 


braces j j , a,choice must.be- made from 


;;xc-:c Cz.-r.~- £•&• 


Given ... in a clause or statement format, scanning right to left, 
determine the j or [ immediately to the left of the ...; continue 
scanning right to left and determine the logically matching j- or ]; the 
... applies to the words between the determined pair of delimiters. 


9 . 


The term identifier means either a data—name or 
data—name. An identifier takes the following form; 


data-name-1 


r ( i 

i data-name-2 ) 

) " 

i 

; literal-1 j 



a subscripted 


data-name—2 or literal-1 must be a positive integer in the range 1 
to the number of elements in the table. 


Headings are presented in this manual in the following order of importance; 
CHAPTER N ) 


TITLE 

mubnsbbi; 


Chapter Heading 


vi 



ORDER ONE HEADING 



ORDER TWO HEADING 
Order Three Heading 
Order Four Heading 
Order Five Heading: 


Numbers one (1) to nine (9) are written in text as letters, e.g. one. 

~ ... 1 v. V: CV Ij.A . L 

Numbers ten (TO) upwards are written in text, as numbers.,- ej.jgsv T2",.h;. : “" 

The phrase "For documentation purposes only?'.. in the texi- K pf ^thirs manual 
means that the associated coding is accepted^ syntacticaLly. by.^h<=!r Compiler, 
but is ignored when producing the object program. 

• - - :T Is. r-rr-rsir me: '*■ .1 

Margin bars are used* in’ this manual to indicate changes .or; additions to CIS 
COBOL since Version 4 Release 2. An asterisk (*) in the margin indicates a 
deletion since Version 4 Release 2. 

ossolort.- «a ialzs:.- ~ nonV . c 
.. ru'f~i>xs srl? ; orlo aoir? nlnni 




Text two lines down 



Text on same line ,. 3 . 3?;cv 

.. R h ri £J.'V 
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CHAPTER 1 


INTRODUCTION 


WHAT IS CIS COBOL? 

COBOL (COmmon s Business Oriented Language) is the most widely and 
extensively used language for the programming of commercial and 
administrative data processing. 

CIS COBOL is a Compact, Interactive and Standard COBOL Language System 
which is designed for use on microprocessor-based computers and intelligent 
terminals. 

It Is based on the ANSI COBOL given in "American National Standard 
Programming Language COBOL" (ANSI X3.23 1974). The CIS COBOL implementation 
has been selected from both levels of ANSI COBOL. The following modules are 
fully implemented at Level 1: 

. Nucleus 

. Table Handling 

. Sequential Input and Output 

. Relative Input and Output 

. Indexed Input and Output 

. Segmentation 

. Library 

. Inter-Program Communication 

. Debug 

In addition many Level 2 features are implemented such as: 

. Nucleus - Nested IF, PERFORM UNTIL 

. Relative and Indexed sequential I/O - START statement 

. Inter-Program Communication - CANCEL statement 

This manual is intended as a reference work for COBOL programmers and 
material from the ANSI language standard document is included. 

The package has been proved to meet and exceed the COBOL ANSI standard 
X3.23 and has been certified by the Federal Compiler Testing Center (FCTC) 
under the direction of the General Services Administration (GSA) as 
validated at Federal Low Intermediate Level. The GSA Validation Summary 
Report is available under the reference CCVS74-VSR530. 

Along with the ANSI implementation CIS COBOL also contains several 
language extensions specifically oriented to the small computer environment. 
These enable a CIS COBOL program to format CRT screens for data input and 
output (DISPLAY and ACCEPT), READ and WRITE text files efficiently and 
define external file names at run time. 

The programmer- wishing to transport- an existing COBOL program to run 
under CIS COBOL must check that the individual language features he has used 
are supported by CIS COBOL. The COBOL SECTION statements in the 

Segmentation feature can be performed using the PERFORM statement. 
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A compile time ANS (ANSI) switch can be set that makes certain COBOL 
source mandatory, whereas if not set it is optional. (See Chapter 2). 

The CIS COBOL compiler is designed to enable programs to be developed 
in a 48K machine. The Compiler supports sequential, relative and indexed 
sequential files, as well as interactive communications via the ACCEPT and 
DISPLAY verbs. 

The CIS COBOL System also contains a powerful utility called FORMS that 
enables the Operator to define screen layouts from a screen "module" and 
produce automatically the data description for direct inclusion in an 
CIS COBOL program. This is described in the CIS COBOL Operating Guide 

CIS COBOL programs are created using a conventional text editor. The 
Compiler compiles the programs and the Run-Time system links with the 
compiled output to form a running user program. A listing of the CIS COBOL 
program is provided by the Compiler during compilation. Error messages are 
inserted in the listing. Interactive Debugging facilities are provided for 
run-time use, and these are described in the CIS COBOL Operating Guide. 

CIS COBOL is designed to be interfaced easily to any microprocessor 
operating system. Detailed operating characteristics are dependent on the 
particular host operating system used and are defined in the appropriate 
Operating Guide. 

PROGRAM STRUCTURE 

A COBOL program consists of four divisions: 

1. IDENTIFICATION DIVISION — An identification of the program 

2. ENVIRONMENT DIVISION - A description of the equipment to be used to 
compile and run the program 

3. DATA DIVISION - A description of the data to be processed 

4. PROCEDURE DIVISION — A set of procedures to specify the operations to 
be performed on the data 


Each division, is divided into sections which are further divided into 
paragraphs which in turn are made up of sentences. 

Within these subdivisions of a COBOL program, further subdivisions 
exist as clauses and statements. A clause Is an ordered set of COBOL 
elements that specify an attribute of an entry, and a statement is a 
combination of elements in the Procedure Division that include a COBOL verb 
and constitute a program instruction. 



FORMATS AND RULES 


GENERAL FORMAT 


A general format is the specific arrangement of the elements of a 
clause or a statement. Throughout this document a format is shown adjacent 
to information defining the clause or statement. When more than one 
specific arrangement is permitted, the general format is separated into 
numbered formats. Clauses must be written in the sequence given in the 
general formats. (Clauses that are optional must appear in the sequence 

shown if they are used). In certain cases, stated explicitly in the rules 

associated with a given format, the clauses may appear in sequences other 

than that shown. Applications, requirements or restrictions are shown as 

rules• 

SYNTAX RULES 

Syntax rules are those rules that define or clarify the order in which 
words or elements are arranged to form larger elements such as phrases, 

clauses, or statements. Syntax rules also impose restrictions on individual 
words or elements. 

rule s are used to define or clarify how the statement must be 
written, i.e..the order of the elements of the statement and restrictions 
on what each element may represent, 

GENERAL RULES 

* S< 7 r f ral - rUle iS 3 CUle that defines or clarifies the meaning or 
relationship of meanings of an element or set of elements. It is used to 

on f fithe°r the semantics of the statement and the effect that it has 

oo either execution or compilation. 

ELEMENTS 


Elements uhlch make up a clause or a statement consist of uppercase 
special “ d 



SOURCE FORMAT 


The COBOL source format divides each COBOL source record into 72 
columns. These columns are used in the following way: 


Columns 1-6 
Column 7 
Columns 18 - 11 
Columns 12 - 72 


Sequence number 
Indicator area 
Area A 
Area B 


SEQUENCE NUMBER 

A sequence number of six digits may be used to identify each source 
program line. 

INDICATOR AREA 


An asterisk * in this area marks the line as documentatary comment 
only. Such a comment line can appear anywhere in the program after the 
Identification Division header. Any characters from the ASCII character set- 
can be included in Area A and Area B of the line. 

A stroke /, in the indicator area acts as a comment line above but 
causes the page to eject before printing the comment. 

A "D" in the indicator area represents a debugging line. Areas A and B 
may contain any valid COBOL sentence. 

A in the indicator area represents the continuation of a 
non-numeric literal. The first non-blank character in Area B of the 
continuation line must be a quotation mark. The literal continues with the 
first character after the quotation mark. All spaces at the end of the 
continued line are significant. 


Section names and paragraph names begin in Area A and are followed by a 
period and a space. Level indications FD, 01 and 77 begin in Area A and are 
followed in Area B by the appropriate file and record description. 


Program sentences may commence anywhere in Area A and Area B. More 
than one sentence is permitted in each source record. 


Figure 1-1 shows the source format of a typical program. 



** CIS COBOL V4.2 
*★ 

000010 
000020 
000030 
000040 
000050 
000060 
000070 
000080 


:F1:ST0CK1.CBL 


IDENTIFICATION DIVISION. 

PKOGRAM-ID. STOCK-FILE-SET-UP. 

AUTHOR. MICRO FOCUS LID. 

ENVIROH4ENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. MDS-800. 
OBJECT-CCMPUTER. MDS-800. 

SPECIAL-NAMES. CONSOLE IS CRT. 

000090 INPUT-OUTPUT SECTION. 

000100 FILE-CONTROL. 

000110 SELECT STOCK-FILE ASSIGN "STOCK. IT" 
000120 ORGANIZATION INDEXED 
000130 ACCESS DYNAMIC 
000140 RECORD KEY STOCK-CODE. 

000150 DATA DIVISION. 

000160 FILE SECTION. 

000170 FD STOCK-FILE; RECORD 32. 

000130 01 STOCK-ITEM. 

000190 02 STOCX-CCCE PIC X(4). 

000200 02 PRXUCT-OESC PIC X (24) . 

000210 02 UNIT-SIZE PIC 9(4). 

000220 WORKING-STORAGE SECTION. 

000230 01 SCREEN-HEADINGS. 

ASK-CODE PIC X(21) VALUE 
FILLER PIC X(59). 

ASK-OESC PIC X(16) 

SI-DESC PIC X(25) 

FILLER PIC X(39). 

ASK-SIZE PIC X(21) VALUE 


000240 

02 

000250 

02 

000260 

02 

000270 

02 

000230 

02 

000290 

02 

000300 

01 Et 

000310 

02 

000320 

02 

000330 

02 

000340 

02 

000350 

02 

000360 

02 

000370 

02 


000380 

000390 

000400 

000410 

000420 


VALUE 
VALUE * 


FILLER PIC X(16). 

CRT-STOCK-CODE PIC X(4). 
FILLER PIC X(76). 
CRT-PROD-OE3C PIC X(24). 
FILLER PIC X(56). 
CRT-UNIT-SIZE PIC 9(4). 
FILLER PIC X. 

PROCEDURE DIVISION. 

SRI. 

DISPLAY SPACE. 

OPEN 1-0 STOCK-FILE. 

DISPLAY SCREEN-HEADINGS. 


"STOCX CODE 
■DESCRIPTION 

"UNIT SIZE 


>*. 


000430 NORMAL-INPUT. 

000440 MOVE SPACE TO ENTER-IT. 

000450 DISPLAY ENTER-IT. 

000460 CORRECT-ERROR. 

000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 

000550 END-IT. 

000560 CLOSE STOCK-FILE. 

000570 DISPLAY SPACE. 

000580 DISPLAY "END CP PROGRAM". 


ACCEPT ENTER-IT. 

IF CRT-STDCK-CCOE » SPACE GO TD END-IT. 

IF CRT-UNIT-SIZE NOT NUMERIC GO TO CORRECT-ERROR. 
MOVE CRT-PROD-OESC TO PHCCUCT-DESC. 

MOVE CRT-UNIT-SIZE TO UNIT-SIZE. 

MOVE CRT-5T0CK-C0DE TO STOCK-CODE. 

WRITE STOCK-ITEM; INVALID GO TO CORRECT-ERROR. 

GO TO NORMAL-INPUT. 


PAGE: 0001 

0118 
0118 
0118 
0118 
0118 
0118 
0118 
0118 
0118 
0118' 
0176 
0176 
0176 
0176 
01A5 
01A5 
01A5 
01A5 
01A5 
01A9 
01C1 
01C7 
01C7 00 
01C7 00 
01DC 15 
0217 50 
0227 60 
0240 79 
0267 AO 
Q1C7 00 
01C7 00 
01D7 10 
01D8 14 
0227 60 
023F 78 
0277 80 
027B B4 
0000 
001A 
001B 
001E 
0022 
0036 
0037 
003D 
0054 
0055 
006C 
0076 
007P 
0085 
008D 
0093 
009F 
00A2 
0QA3 
00A7 
OOAA 


;; CIS CO0OL :F1:ST0CK1.CBL PAGE: 0002 

000590 STOP RUN. 

** CIS COBOL V4.2 COMPILER COFYRICHT (C) 1978 MICRO FOCUS LTD URN AA/0000/AA 
"•ERRORS-OOOOO DATA-00636 CCDE-00222 DICT»00420:21913 END OF LIST 
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Compiler 
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Area 


Cols 8-11 
Area A 


Figure 1-1. Sample Program Listing showing Source Format. 
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CHAPTER 2 




COBOL CONCEPTS 



LANGUAGE CONCEPTS 
CHARACTER SET 

The moat basic and indivisible unit of the language is the character. 
The set of characters used to form CIS COBOL character-strings and 
separators includes the letters of the alphabet, digits and special 
characters. The character set consists of the characters defined below: 

0 to 9 

A to Z 

®|j^^SESEgS3fand U8er..%»BCCharacterS 
1 . r ead: aas:.. A> to Zli _ 

Space 

+ Plus sign 

- Minus sign or hyphen 

* Asterisk 

/ Oblique Stroke/Slash 
■ Equal sign 

$ Dollar sign 

. Full stop or decimal point 

, Comma or decimal point 

; Semicolon 

" Quotation mark 

( Left Parenthesis 

_ ) Right Parenthesis 

> Greater than symbol 
< Less than symbol 

The CIS COBOL language is restricted to the above character set, but 
the content of non-numeric literals, comment lines and data may include any 
of the characters from the ASCII character set. See Appendix B. 


LANGUAGE STRUCTURE J 

The individual characters of the language are concatenated to form 
character—strings and separators. A separator may be concatenated with 
another separator or with a character-string. A character-string may only 
be concatenated with a separator. The concatenation of character—strings 
and separators forms the text of a source program. 

Separators 

A separator is a string of one or more punctuation characters. The 
rules for formation of separators are: 

1. The punctuation character space is a separator. Anywhere a space is 
used as a separator, more than one space may be used. 

2. The punctuation characters comma, semicolon and period, when 
immediately followed by a space, are separators. These separators ^ 
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may appear in a COBOL source program only where explicitly permitted by 
the general formats, by format punctuation rules (see 
FORMATS AND RULES in Chapter 1), by statement and sentence structure 
definitions (see STATEMENTS AND SENTENCES in this Chapter), or 
reference format rules (see REFERENCE FORMAT in this Chapter). 

The punctuation characters right and left parenthesis are separators. 
Parenthesis may appear only in balanced pairs of left and right 
parentheses delimiting subscripts, indices, arithmetic expressions, or 
conditions. 


4. 


5. 


6 . 


The punctuation character quotation mark is a separator. An opening 
quotation mark must be immediately preceded by a space or left 
parenthesis; a closing quotation mark must be immediately followed by 
one of the separators space, comma, semicolon, period, or right 
parenthesis. 


Quotation marks may appear only in balanced pairs delimiting nonnumeric 
literals except when the literal is continued. 
CONTINUATION OF LINES in this Chapter). 


(See 


The separator space may optionally immediately precede all separators 
except the following: 


a. 


As specified by reference format rules see REFERENCE FORMAT 
in this Chapter. 


b. The separator closing quotation mark. In this case, a 
preceding, space is considered as part of the nonnumeric 
literal and not as a separator. 

The separator space is optional and can immediately follow any 
separator except.the opening quotation mark. In this case, a following 
space is considered as part of the nonnumeric literal and not as a 
separator. 

Any punctuation character which appears as part of the specification of 
a PICTURE character-string (see Chapter 3) or numeric literal Is, not 
considered, as a punctuation character, but rather as a symbol used in the 
specification of that PICTURE character-string or numeric literal. PICTURE 
character-strings are delimited only by the separators , space, comma, 
semicolon, or period. 

The rules established for the formation of separators do not apply to 
the characters which comprise the contents of nonnumeric literals 
comment-entries, or comment lines. 
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Character-S trings 


A character—string is a character or a sequence of contiguous 
characters which forms a CIS COBOL word, a literal, a PICTURE 

character-string, or a comment-entry. A character-string is delimited by 
separators. 

COBOL Words 


A COBOL word is a character—string of not more than 30 characters which 
forms a user defined word, a system-name, or a reserved word. Within a 
given source program these classes form disjoint sets; a COBOL word may 
belong to one and only one of these classes. 


^ser Defined Words: A user—defined word is a COBOL word that must be 
supplied by the user to satisfy the format of a clause or statement. Each 
character of a user-defined word is selected from the set of characters 'A', 

B , ^ C’, ... ’Z', 'a 1 , ’b', 'c 1 , ... f z’, 'O', ...'S', and except that 

the may not appear as the first or last character. The exception to. 

a text—name which must be. a normal alphanumeric literal. 


this rule is 


~\ 


User-defined word types which are implemented are as follows: 


alphabet-name 

condition-name 

data-name 

file-name 

index-name 

level-number 

mnemonic-nAme 

paragraph-name 

program-name 

record-name 

section-name 

segment-number 

text-name 


Within a given source program, ten of these 11 types of user-defined 
words are grouped into nine disjoint sets. The disjoint sets are: -v’ ^ 

alphabet-names 

condition—names, data-names, and record-names 

file—names 

index-names 

mnemonic-names 

paragraph-names 

program-names 

section-names 

text-names 


All user-defined words, except segment-numbers and level-numbers, can 
belong to one and only one of these disjoint sets. Further, all 
user-defined words within a given disjoint set must be unique, because no 
other user-defined word in the .same source p.rogram has identical spelling or 
punctuation. (See UNIQUENESS OF REFERENCE in this Section). 
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With the exception of paragraph-name, section-name, level-number and 
segment-number, all user-defined words must contain at least one alphabetic 
character. Segment-numbers and level-numbers need not be unique; a given 
specification of a segment-number or level-number may be identical to any 
other segment-number or level-number and may even be identical to a 
paragraph-name or section-name. 


Condition-Name: 


A condition—name is a name which is assigned to a 
specific value, set of values, or range of values, 
within a complete set of values that a data item may 
assume. The data item itself is called a conditional 
variable. 


Condition—names may be defined in the Data Division or 
in the SPECIAL-NAMES paragraph within the Environment 
Division where a condition-name must be assigned to the 
ON STATUS or OFF STATUS, or both, of the run time 
switches. 


Mnemonic—Name: 


Paragraph-Name: 


A condition-name is used only in the RERUN clause or in 
conditions as an abbreviation for the relation 
condition; this relation condition posits that the 
associated conditional variable is equal to one of the 
set of values to which that condition-name is assigned. 

A mnemonic-name assigns a user-defined word to an 
implementor-name. These associations are established in 
the SPECIAL-NAMES paragraph of the Environment Division 
(See SPECIAL-NAMES in Chapter 3). 

A paragraph—name is a word which names a paragraph in 
the Procedure Division. Paragraph-names are equivalent 
if, and only if, they are composed of the same sequence 
of the same number of digits and/or characters. 


Section-Name: 


A section—name is a word which names a section in the 
Procedure Division. Section names are equivalent if, and 
only if, they are composed of the same sequence, of the 
same number of digits and/or characters. 


Other User-Defined 

NameS: See the glossary in Appendix C for definitions of all 

other types of user—defined words. 


System-Names: 


A system-name is a COBOL word which is used to 
communicate with the operating environment. Each 
character used in the formation of a system-name must be 
selected from the set of characters *A f ’c' 

. , ’ b •** 2 * 0 , ... '9* and except that 

the - may not appear as the first or last character. 

There are three types of system-names: 


1• computer—name 

2. implementor-name 

3. language-name 
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Reserved Words: 


Key Words: 


Within a given implementation these three types of 
system-names form disjoint sets; a given system-name may ■ ~\ v 
belong to one and only one of them. ) 

The system-names listed above, are individually defined 
in the glossary in Appendix G. 

A reserved word is a COBOL word that is one of a 
specified list of words which may be used in COBOL 
source programs, but which must not appear in the 
programs as user-defined words or system-names. 
Reserved- words can only be used as specified in the 
general formats. (See Appendix A). 

There are six types of reserved words: 


1. Key words 

2. Optional words 

3. Connectives 

4. Special registers 

5. Figurative constants 

6. Special-character words 



A key word is a word whose presence is required when the 
format in which the word appears is used in a source 
program. Within each format, such words are uppercase 
and underlined. 


Key words are of three types: 

1. Verbs such as ADD, READ, and ENTER. 

2. Required words, which appear in statement and entry 
formats. 

3. Words which have a specific functional meaning such 
as NEGATIVE, SECTION, etc. 

Optional Words: Within each format, uppercase words that are not 

underlined are called optional words and may appear at 
the user's option. The presence or absence of an .-n 
optional word does not alter the semantics of the COBOL j 
program in which it appears. 

Connectives: Series connectives link two or more consecutive 

operands: , (separator comma) or ; (separator 

semicolon). 

Figurative 

Constants: Certain reserved words are used to name and reference 

specific constant values. These reserved words are 
specified under Figurative Constant Values in this 
chapter. 


Literals 

A literal is a character-string whose value is implied by an ordered 
set of characters of which the literal is composed or by specification of a 
reserved word which references a figurative constant. Every literal belongs 
to one of two types, nonnumeric or numeric. 
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Nonnumeric 
Literals: 


A nonnumeric literal is a character-string delimited on 
both ends by quotation marks and consisting of any 
allowable character in the computer’s character set. 
Allowed are nonnumeric literals of 1 through 128 
characters in length. To represent a single quotation 
mark character within a nonnumeric literal, two 
contiguous quotation marks must be used. The value of a 
nonnumeric literal in the object program is the string 
of characters itself, except: 

1. The delimiting quotation marks are excluded, and 


2 . 


Each embedded pair of contiguous quotation marks 
represents a single quotation mark character. 


c 


Axl. other punctuation characters are part of the value of 
nonnumerxc literal rather than separators; all nonnumeric literal 

C ^! S ^ --v alph f nUnffiriC * .._ CS 5 e Jhe PICTURE Clause in chapter 3). 
f hexadecimal binary values can “be attributed tb~hdn-numeric^ 

literals by expressing literals as: X "nn'\ where n is a., hexadecimal 4 
character ui the s^t 0-9 A-3?' nrr may. be repeated up to iia. times, but 

digits must be even. 

■ —~~-*** — — ■■ — - : •„ - - - ... . 


the 

are 

In 


Numeric Literals: 


A numeric literal is a character-string whose characters 
are selected from the digits ’O’ through ’9’, the plus 
sign, the minus sign, and/or the decimal point. The 
implemention allows for numeric literals of 1 through 18 
digits in length. The rules for the formation of 
numeric literals are as follows: 




1. A literal must contain at least one digit. 

2. A literal must not contain more than one sign 
character. If a sign is used, it must appear as 
the leftmost character of the literal. If the 
literal is unsigned, the literal is positive. 

A literal must not contain more than one decimal 
point. The decimal point is treated as an assumed 
decimal point, and may appear anywhere within the 
iteral except as the rightmost character. If the 
literal contains no decimal point, the literal is 


4 . 


If a literal conforms to the rules for the 
formation of numeric literals, but is enclosed in 
quotation marks, it is a nonnumeric literal and it 
is treated as such by the compiler. 

The value of a numeric literal is the algebraic 
quality represented by the characters in the 
numeric, literal. Every;, numeric literal is category 
numeric. (See THE PICTURE CLAUSE in Chapter 3). 

of a numeri <= literal in standard data 
format characters is equal to the number of digits 
specified by the user. glIa 
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Figurative Constant 
Values 



Figurative Constant Values are generated by the compiler and referenced 
through the use of the reserved words given below. These words must not be 
bounded by quotation marks when used as figurative constants. The singular 
and plural forms of figurative constants are equivalent and may be used 
interchangeably. 


The figurative constant values and the reserved words used to reference them 
are shown in Table 2-1. 


Table 2-1. Figurative Constants and their Reserved Words 


CONSTANT 


REPRESENTATION 


ZERO 


Represents the value 'O', or one or more 
of the character 'O’ depending on context. 


ZEROS 

ZEROES 



SPACE 

SPACES 


Represents one or more of the character 
space from the computer's character set. 


HIGH-VALUE 

HIGH-VALUES 


LOW-VALUE 

LOW-VALUES 


QUOTE 

QUOTES 


ALL literal 


Represents one or more of the character 
that has the highest ordinal position in 
the program collating sequence. 

Represents one or more of the character that 
has the lowest ordinal position in the program 
collating sequence. 


Represents one or more of the character "* T . 
The word QUOTE or QUOTES cannot be used in 
place of a quotation mark in a source program 
to bound a nonnumeric literal. Thus, QUOTE 
ABP QUOTE is incorrect as a way of stating 
the nonnumeric literal "ABD". 



Represents one character of the string of 
characters comprising the literal. The 
literal must be either a nonnumeric literal 
or a figurative constant other than ALL literal. 
When a figurative constant is used, the word 
at.t. is redundant and is used for readability 


only. 


When a figurative constant represents a string of one or more characters, 
the length of the string is determined by the compiler from context 
according to the following rules: 


When a figurative constant is associated with another data item, as 
when the figurative constant is moved to or compared with another data 
item, the string of characters specified by the figurative constant is 
repeated character by character on the right until the size of the 
resultant string is equal to the size in characters of the associated ^ 
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data item. This is done prior to and independent of the application of 
any JUSTIFIED clause that may be associated with the data item. 

2. When a figurative constant is not associated with another data item, as 
when the figurative constant appears in a DISPLAY or STOP statement, 
the length of the string is one character. 

DISPLAY SPACE is, of course, an exception. 

A figurative constant may be used wherever a literal appears in a 
format, except that whenever the literal is restricted to having only 
numeric characters in it, the only figurative constant permitted is ZERO 
(ZEROS, ZEROES). 

When the figurative constants HIGH-VALUE(S) or LOW-VALUE(S) are used in 
the source program, the actual character associated with each figurative 
constant depends upon the program collating sequence specified. (See 
THE OBJECT-COMPUTER PARAGRAPH, and THE SPECIAL-NAMES PARAGRAPH in Chapter 

3 ). 

Each reserved word which is used to reference. a flgujedtivfe dohs't'ah'f 
value is a distinct character—string with the exception of the construction 
’ALL literal' which is composed of two distinct character-strings. 

PICTURE Character-Strings 

A PICTURE character-string consists of " certain combinations of 
characters in the COBOL character set used as symbols. See 

The PICTURE Clause for the PICTURE character—string and for the rules that 
govern their use. 

Any punctuation character which appears as part' of the specification of 
a PICTURE character—string is not considered as a punctuation character, but 
rather as a symbol used in the specification of that PICTURE 
character-string. 

Comment-Entries 

A comment-entry is an entry in the Identification Division that may be 
any combination of characters from the computer's character set. 


CONCEPT OF COMPUTER INDEPENDENT DATA DESCRIPTION 

To make data as computer independent as possible, the characteristics 
or properties of the data are described in relation to a standard data 
format rather than an equipment-oriented format. This standard data format 
is oriented to general data processing applications and uses the decimal 
system to represent numbers (regardless of the radix used by the computer) 
and the remaining characters in the CIS COBOL character set to describe 
nonnumeric data items. 

Concept of Levels 

A level concept is inherent in the structure of a logical record. This 
concept arises from the need to specify subdivisions of a record for the 
purpose of data reference. Once a subdivision has been specified, it may be 
further subdivided to permit more detailed data referral. 
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The most basic subdivisions of a record, that is, those not further 
subdivided, are called elementary items; consequently, a record is said to 
consist of a sequence of elementary items, or the record itself may be an 
elementary item. 

In order to refer to a set of elementary items, the elementary items 
are combined into groups. Each group consists of a named sequence of one or 
more elementary items. Groups, in turn, may be combined into groups of two 
or more groups, etc. Thus, an elementary item may belong to more than one 
group. 

Level-Numbers 

A system of level-numbers shows the organisation of elementary items 
and group items. Since records are the most inclusive data items, 
level—numbers for records start at 01. Less inclusive data items are 
assigned higher (not necessarily successive) level-numbers not greater in 
value than 49. A maximum of 49 levels in a record is allowed. There is a 
special level-number, 77, which is an exception to this rule (see below). 
Separate entries are written in the source program for each level-number 
used. 


A group includes all group and elementary items following it until a 
level-number less than or equal to the level-number of that group is 
encountered. All items which are immediately subordinate to a given group 
item must be described using identical level-numbers greater than the 
level-number used to describe that group item. Note that group items must 
not exceed 8192 Bytes in length. 

Three types of entries exist for which there is no true concept of 
level. These are: 

1. Entries that specify elementary items or groups introduced by a RENAMES 
clause 

2. Entries that specify noncontiguous working storage and linkage data 
items 

3. Entries that specify condition-names. 

Entries that specify noncontiguous data items, which are not 
subdivisions of other items, and are not themselves subdivided, have been 
assigned the special level-number 77. 


Concept of Classes of Data 

The five categories of data items (see THE PICTURE CLAUSE in Chapter 3) 
are grouped into three classes: alphabetic, numeric, and alphanumeric. For 
alphabetic and numeric, the classes and categories are synonymous. The 
alphanumeric class includes the categories of alphanumeric edited, numeric 
edited and alphanumeric (without editing). Every elementary item except for 
an index data item belongs to one of the classes and further to one of the 
categories. The class of a group item is treated at object time as 
alphanumeric regardless of the class of elementary items subordinate to that 
group item. Table 2—2 depicts the relationship of the class and categories 
of data items. 


(Addendum 1) 



Table 2-2 Data Levels, classes and categories 


LEVEL OF ITEM 

CLASS 

CATEGORY 

Elementary 

Alphabetic 

Alphabetic 

Numeric 

Numeric 

Alphanumeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 

Non-Elementary 

Group 

Alphanumeric 

Alphabetic 

Numeric 

Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Selection of Character Representation and Radix 

I? e f ValUe .° f a numeric item “ay be represented in either binary or 
decimal form, depending on the equipment. In addition, there are several 

cSbinatl expressing de cimal- Since these representations are actually 

thSy are commoill y called binary-coded decimal forms! 
The four standard formats used for storing numeric data in CIS COBOL are as 


1 . 

2 . 


As alphanumeric characters stored one per byte in ASCII representation. 

r^ T t ±C ^ aracters defined by USAGE IS DISPLAY (See The USAGE Clause 
in Chapter 3) one per byte in ASCII representation. If they are signed 
and the sign is specified as INCLUDED, bit 6 of the leading or trailing 
the field is set for negative, depending on the field 
definition If a TRAILING sign is specified a one byte ASCII : or - a 

specified bit 7 t f haleading or trailing byte. If no SIGN clause is 
default? ’ b 6 ^ traiUnS dlgit is set t0 indicate negative by 

tina^^^^ 6 ^ ^77 ^ USAGE IS C0MP or COMPUTATIONAL in pure 
binary form. If the- field is signed the number, is held in 

in°Th COm pTr^nDv f ° m * Storage is then dependent on the number of 9’s 
7 l he P ? CTU J?, clause (see The PICTURE Clause in Chapter 3) and on 
w ether the field is SIGNed or not (see The SIGN Clause in Chapter 3). 

PICTURE 2 Clause°. WS ^ St ° rage requirements for each COMP (UTATIONAL) 





Table 2-3. 
Clausa. 


Numeric Data Storage for the COMP(UTATIONAL) PICTURE 


Bytes Required 

Number of 

Characters 

Signed 

Unsigned 

1 

1-2 

1-2 

2 

3-4 

3-4 

3 

5-6 

5-7 

4 

7-9 

8-9 

5 

10-11 

10-11 

6 

12-14 

13-14 

7 

15-16 

15-16 

8 

17-18 

17-18 


As numeric characters defined by USAGE IS COMPUTATIONAL-3 or USAGE IS 
COMP-3 in packed internal decimal form. Storage is dependent on the 
number of 9’s in the PICTURE clause. The decimal numbers are stored as 
signed strings of variable length of 1 through 18 digits. The sign of 
the packed decimal number is always stored in place of the least 
significant quartet of the low order byte. Each byte contains two 
decimal positions (four -bits per digit) and the digits (0 - 9) are 
encoded as BCD numbers (0000 — 1001). Numbers are represented in the 
field as right—justified values with a + or — sign as shown in the 
example below. The maximum number of digits permitted in arithmetic 
operands is 18. 

EXAMPLE: 

a. For COMPUTATIONAL^ and PICTURE 9999, the number +1234 would be 
stored as follows: 

... 01 2 3 4 F 

0000 0001 0010 0011 0100 1111 

- . J 

t 

1 byte 

where F represents the non-printing plus sign. 

b. For C0MPUTATI0NAL-3 and PICTURE S9999, the number +1234 would be 
stored as follows: 

Storage would be as in a above except that the least significant 
digit would be replaced by C (1100) representing the plus sign. 

c. For COMPUTATIONAL-3 and PICTURE S9999, the number -1234 would be 
stored as follows: 

Storage would be as in a above except that the least significant 
byte would be replaced by D (1101) representing the minus sign. 




< 2 ^ 


Table 2-4 shows the storage requirements for each COMP-3 clause. 

Table 2-4. Numeric Data Storage for the COMPUTATION-3 PICTURE Clause. 


Bytes Required 

Number of Digits 
(Signed or Unsigned) 

1 

1 

2 

2-3 

3 

4-5 

4 

6-7 

5 

8-9 

6 

10-11 

7 

12-13 

8 

14-15 

9 

16-17 

10 

18 




Algebraic Signs 

Algebraic signs fall into two categories: operational signs, which are 
associated with signed numeric data items and signed numeric literals to 
indicate their algebraic properties; and editing signs, which appear on 
edited reports to identify the sign of the item. 

The SIGN Clause permits the programmer to state explicitly, the 
°? operational sign. The Clause is optional; if it is not used 
operational, signs will be represented as defined by setting bit 6 of the 
tra ^ ln 8 digit for ASCII numbers, (see above). 

Editing signs are inserted into a data item through the use of the sign 
control symbols of THE PICTURE CLAUSE. lg 


C 


(V 


Standard Alignment Rules 

The standard rules for positioning data within an elementary item 
depend on the category of the receiving item. These rules are: 

1* If the receiving data item is described as n ume ric: 

a. The data is aligned by decimal point and is moved to the receiving 
required 1 P ° Sitions with zero fil1 or truncation on either end as 

b ‘ assumed decimal point is not explicitly specified, the 

data item is treated as if it had an assumed decimal point 

immediately following its rightmost character and is aligned as in 
paragraph a. above. 

If ^ he re reiving data item is a numeric edited data item the data 

truncatL % edi r>f iS ali * ned Point with zero m 

truncation at either end as required within the receiving character 

positions of the data item, except where editing requirements cause 
replacement of the leading zeros. quxrements cause 
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3. 


If the receiving data item is alphanumeric (other than a numeric edited 
data item), alphanumeric edited or alphabetic, the sending data is 
moved to the receiving character positions and aligned at the leftmost 
character position in the data item with space fill or truncation to 
the right, as required. 

If the JUSTIFIED Clause is specified for the receiving item, these 
standard rules are modified as described in THE JUSTIFIED CLAUSE in 
Chapter 3. 

Uniqueness of Reference 
Subscripting 

Subscripts can be used only when reference is made to an individual 
element within a list or table of like elements that have not been assigned 
individual data—names (see THE OCCURS CLAUSE in Chapter 4). 

The subscript can be represented either by a numeric literal that is an 
integer or by a data-name. The data-name must be a numeric elementary item 
that represents an integer. 

The subscript may be signed and, if signed, it must be positive. The 
lowest possible subscript value is 1. This value points to the first 
element of the table. The next sequential elements of the table are pointed 
to by subscripts whose values are 2, 3, ... . The highest permissible 
subscript value, in any particular case, is the maximum number of 
occurrences of the item as specified in the OCCURS clause. 

The subscript, or set of subscripts, that identifies the table element 
is delimited by the balanced pair of separators left parenthesis and right 
parenthesis following the table element data-name. The table element 
data-name appended with a subscript is called a subscripted data-name or an 
identifier. When more than one subscript is required, they are written in 
the order of successively less inclusive dimensions of the data 
organization. 


The format is: 
data-name 



(subscript-1 [, subscript-2 [, subscript-3 ]]) 


Indexing 

References can be made to individual elements within a table of like 
elements by specifying indexing for that reference. An index is assigned to 
that level of the table by using the INDEXED BY phrase in the definition of 
a table. A namp given in the INDEXED BY phrase is known as an index-name 
and is used to refer to the assigned index. The value of an index 
corresponds to the occurrence number of an element in the associated table. 
An index—name must be initialized before it is used as a table reference. 
An index-name can be given an initial value by a SET statement. 

Direct indexing is specified by using an index-name in the form of a 
subscript. Relative indexing is specified when the index-name is followed 
by the operator + or -, followed by an unsigned integer numeric literal all 
delimited by the balanced pair of separators left parenthesis and right 
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parenthesis following the table element data-name. The occurrence number 
resulting from relative indexing is determined by incrementing (where the 
operator + is used) or decrementing (when the operator - is used), by the 
value of the literal, the occurrence number represented by the value of the 
index. When more than one index-name is required, they are written in the 
order of successively less inclusive dimensions of the data organization. 

tablp A p^ the i - t1 ?^ of execution of a statement which refers to an indexed 
table element, the value contained in the index referenced by the index-name 
associated with the table element must neither correspond to a value less 
than one nor to a value greater than the highest permissible occurrence 
number of an element of the associated table. This restriction also applies 
to the value resultant from relative indexing. VV 


The general format for indexing is: 

<{ 

* / 

literal-4 


j data-name 
\ condition—name 


index-name— 
literal-1 


* 


literal-2 J 


( index-name-2 
[ literal-3 




( index-name-3 tv \ IT 

J- L- (literal-5 j lite ral-6j J 


Identifier 


1n a An ldentifie t is a term used to reflect that a data-name, if not unique 

subscript?S’ indices f0U °" ed by a ^tactically correct combination of 

suoscripts or indices necessary to ensure uniqueness. 

The general formats for identifiers are: 

Format 1: 


Format 2: 


data-name—1 


data-name-l 


(subscript-1 


subscript-2 


[, subscript-3] ]l 


c 


(/ index-name-11 , . . .... 

( literal-1 j j-i} literal-2 


[’ {£££l-J ' 2 }[|±| literal- 4 ] [.{ in S; r n S! 5 ‘ 3 }[{=|Uteral-6]] 

Restrictions on subscripting and indexing are: 

si r d 

Indexing is not permitted where subscripting is not permitted. 

An index may be modified only by the SET ffa sm . „„„„ 

:“raToV th^valuer 8 associated ^ 

specified by the implementor. Such data UeTte “alt? index* £t“ 


) 
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4. 


Literal-1, literal-3, literal-5, in the above format must be positive 
numeric integers. Literal-2, literal-4, literal-6 must be unsigned 
numeric integers. 


Condition-Name 

Each condition-name must be unique. 


PROGRAM STRUCTURE 

A CIS COBOL program consists of four divisions: 

1. IDENTIFICATION DIVISION - An identification of the program. 

2. ENVIRONMENT DIVISION - A description of the equipment to be used to 
compile and run the program. 

3. DATA DIVISION - A description of the data to be processed. 

4. PROCEDURE DIVISION - A set of procedures to specify the operations to 
be performed on the data. 

Each division, is divided into sections which are further divided into 
paragraphs, which in turn are made up of sentences. 



■ - ■r-y ■. "’ V - g" 


aSS^W^COMFILEK; DIRECTIVE 


'manual a sentence 

MB - ---- - 





IDENTIFICATION DIVISION 


GENERAL DESCRIPTION 

The Identification Division must be included in every ANSI COBOL source 
program. This division,identifies both the source program and the resultant 
output listing. In addition, the user may include the date the program' is 
written, the date the compilation of the source program is accomplished and 
such other information as desired under the paragraphs in the general format 
shown below. 


ORGANISATION 


Paragraph headers identify the type of information contained in the 
paragraph. The name of the program must be given in the first paragraph 
which is the PROGRAM-ID paragraph. The other paragraphs are optional and 


may be included in this division at 
presentation shown by the format below. 


the user's choice, in order of 



STRUCTURE 


The following is the 
Identification Division and 
source program. 


general format of the paragraphs in tiie 
it defines the order of presentation in the 


General Format 

fIDENTIFICATION DIVISION .! 

■ f PROGRAM—ID . program— name. 

AUTHOR . [comment-entry] .. 
INSTALLATION . [comment—entry] 

DATE—WRITTEN . [comment—entry] 

DATE-COMPILED . [comment—entry] 

SECURITY. [comment—entry] 




J 

: 
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ENVIRONMENT DIVISION 


GENERAL DESCRIPTION 

The Environment Division specifies a standard method of expressing 
those aspects of a data processing problem that are dependent upon the 
physical characteristics of a specific computer. This division allows 
specification of the configuration of the compiling computer and the object 
computer. In addition, information relating to input-output control, 
special hardware characteristics and control techniques can be given. 

The Environment Division must be included in every COBOL source 
program. 

ORGANISATION 

Two sections make up the Environment Division: the' Configuration 
Section and the Input-Output Section. 

The Configuration Section deals with the characteristics of the source 
computer and the object computer. This section is divided into three 
paragraphs: the SOURCE-COMPUTER paragraph, which describes the computer 
configuration on which the source program is compiled; the OBJECT-COMPUTER 
paragraph, which describes the computer configuration on which the object 
program produced by the compiler is to be run; and the SPECIAL-NAMES 
paragraph, which relates the implemention-names used by the compiler to the 
mnemonic-names used in the source program. 

The Input-Output Section deals with the information needed to control 
transmission and handling of data between external media and the object 
program. This section is divided into two paragraphs: the FILE-CONTROL para 
graph which names and associates the files with external media; and the 
X-o-ooNTROL paragraph which defines special control techniques to be used in 
the object program. 

STRUCTURE 

The following is the general format of the sections and paragraphs in 
the Enviroment Division, and defines the order of presentation in the source 
program. 

General Format 

£ ENVIRONMENT DIVISION . £ 

£ CONFIGURATION SECTION . £ 

£ SOURCE-COMPUTER , source-computer-entry £ 
f OBJECT-COMPUTER , object-computer-entry £ 

[ SPECIAL-NAMES . special-names-entry ] 

£ INPUT-OUTPUT SECTION . £ 

FILE-CONTROL. j file-control-entry } 


[ I-O-CONTROL. input-output-control-entry ] 



DATA DIVISION 


OVERALL APPROACH 

The Data Division describes the data that the object program is to 
accept as input, to manipulate, to create, or to produce as output. Data to 
be processed falls into three categoriast 

1* That which is contained in files and enters or leaves the internal 

memory of the computer from a specified area or areas. 

2. That which is developed internally and placed into intermediate or 

working storage, or placed into specific format for output reporting 
purposes. ^ 6 

3. Constants which are defined by the user. 



PHYSICAL AND LOGICAL ASPECTS OF DATA DESCRIPTION 
Data Division Organization 


The DATA DIVISION which is one of 
is subdivided into sections. These 
Linkage sections. 


the required divisions in a program, 
are the File, Working-Storage and 


The FILE SECTION defines the structure of data files. Each file is 

hJ fi a ne< L? y fil . d ® scri P tion and one or more record descriptions, or 

rL description entr y and one or more report description entries. 

R *° rd d ® scri P t:L °ns are written immediately following the file description 
17 ’ W0RKING " ST0RAGEr SECTION describes records and noncontiguous data 

items which are not part of external data files but are developed and 
processed internally. It also describes data items whose values are 
source program and do not change during the execution of the 
G pr °S ram * 1116 LINKAGE SECTION appears in the called program and 

the H ltemS ^ are t0 be referred to by the calling program and 

SECTION 6 program * Its structure is the same as the WORKING-STORAGE 


G 
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General Format 


The following gives the general format of the sections in the Data 
Division, and defines the order of their presentation in the source program. 

{■ DATA DIVISION . * 

FILE SECTION . - 

file-description-entry [record-description-entry] ... 


WORKING-STORAGE SECTION . 

(77-level-description-entry 
I record-description-entry 


}] 


LINKAGE SECTION . 

f77-level-description-entry 
[record-description-entry 


a ■■•] 
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PROCEDURE DIVISION 


GENERAL DESCRIPTION 

The Procedure Division must be included in every COBOL source program 
This division may contain declarative procedures. 

Declaratives 


Declarative sections must be grouped at the beginning of the Procedure 
Division preceded by the key word DECLARATIVES and followed by the key words 
END DECLARATIVES. (See descriptions of the USE statement in Chapters 5 6 
and 7 and the Debug Chapter 10). 


Procedures 


A procedure is composed of a paragraph, or group of successive 
paragraphs, or a section, or a group of successive sections within the 
Procedure Division. If one paragraph is in a section, then all paragraphs 
must be in sections. A procedure-name is a word used to refer to a 
paragraph or section in the source program in which it occurs. It consists 
of a paragraph-name (which may be qualified), or a section-name. 

The end of the Procedure Division and the physical end of the program 

is that physical position in a COBOL source program after which no further 
procedures appear. 

A section consists of a section header followed by zero, one, or more 
successive paragraphs. A section ends Immediately before the next section 

°rL a L * end Procedure Division or, in the declaratives portion of 

the Procedure Division, at the key words END DECLARATIVES. 

A paragraph consists of a •paragraph-name followed by a period and a 
space and by zero, one, or more successive sentences. A paragraph ends 
immediately before the next paragraph-name or section-name or at the end of 

Division, at the key^wor ds^"END^ECLARATI^sT 11 iVSS P ortion of the Procedure 
period foTS byT^plcef ^ termed by a 

begin^'iT’a coboI errb! CtlCa117 VaUd ° £ — symbols 

unique^reference^to^a^data T to ml ce 


Execution 


Execution begins with the first statement of the Procedure Division 
ercloding declaratives. Statements are then, executed in S! order to wWrt 

otSr order! 6 *" ««»* where the rules indicate s^e 



General Format 


Ov 

Procedure Division Header ! 

The Procedure Division is identified by and must begin with the 
following header: 

PROCEDURE DIVISION £ USING data-name-1 [, data-name-2] 



Procedure Division Body 

The body of the Procedure Division must conform to one of the following 
formats: 

Format 1: . 


DECLARATIVES . 

j section-name J5ECTI0N [segment-number]. declarative-sentence 
[paragraph-name. [sentence] ••• ] ••• f ••• 

END DECLARATIVES . 

j section-name SECTION . [segment-number] . 

[sentence] ... ] ... f ... 

[sentence] ... } ... 

STATEMENTS AND SENTENCES 

There are three types of statements: 

1. Conditional statements, 

2. Compiler directing statements, 

3. Imperative statements. 

There are three types of sentences: 

1. Conditional sentences, 

2. Compiler directing sentences, 

3. Imperative sentences. 


Q)aragraph-name. 
Format 2: 

|paragraph-name. 
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Conditional Statement 


A conditional statement specifies that the truth value of a condition 
is to be determined and that the subsequent action of the object program is 
dependent on this truth value. 

A conditional statement is one of the following: 

* An IF statement. 

A READ statement that specifies the AT END or INVALID KEY phrase. 

* A WRITE statement that specifies the INVALID KEY phrase 

A START, REWRITE or DELETE statement that specifies the INVALID 
KEY phrase. 

An arithmetic statement (ADD, DIVIDE, MULTIPLY, SUBTRACT) that 
specifies the SIZE ERROR phrase. 

* A CALL statement that specifies the ON OVERFLOW phrase.- 


Conditional Sentence 


A conditional sentence is a conditional statement, optionally preceded 
by an imperative statement, terminated by a period followed by a space. 


Compiler Directing Statement 

A COmpile 5 Erecting statement consists of a compiler directing verb 

THE COPY ? ie _ , : om P iler directing verbs are COPY, ENTER and USE (see 

StIte^T^T 2 ^ ENTBR STATEMENT Chapter 3, and THE 

USE STATEMENT in Chapters 5, 6 and 7). A compiler directing statement 

causes the compiler to take on specified action during compilation. 


cc. 


Compiler Directing Sentence 

A compiler directing sentence is a single compiler directing statement 
terminated by a period followed by a space. erecting statement 
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Imperative Statement 


An imperative statement indicates a specific unconditional action to be 
taken by the object program. An imperative statement is any statement that 
is neither a conditional statement, nor a compiler directing statement. An 
imperative statement may consist of a sequence of imperative statements, 
each possibly separated from the next by a separator. 

The imperative verbs are: 


ACCEPT 

GO 

SET 

ADD 1 

INSPECT 

START 2 

ALTER 

MOVE 

STOP 

CALL 3 

MULTIPLY 1 

SUBTRACT 

CANCEL 

OPEN 

WRITE 6 

CLOSE 

PERFORM . 


DELETE 2 

READ 5 



REWRITE 2 


DISPLAY 




DIVIDE 1 


EXIT 

1 — Without the optional SIZE ERROR phrase. 

2 — Without the optional INVALID KEY phrase. 

3 — Without the optional ON OVERFLOW phrase. 

5 - Without the optional AT END phrase or INVALID KEY phrase. 

6 - Without the optional INVALID KEY phrase or END-OF-PAGE phrase. 

When 'imperative-statement' appears in the general format of 
statements, 'imperative-statement' refers to that sequence of consecutive 
imperative statements that must be ended by a period or an ELSE phrase 
associated with a previous IF statement. 


Imperative Sentence 

An imperative sentence is an Imperative statement terminated by a 
period followed by a space. 
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REFERENCE FORMAT 


GENERAL DESCRIPTION 


The reference format, which provides a standard method for describing 
COBOL source programs, is described in terms of character positions in a 
line on an input-output medium. The CIS COBOL compiler accepts source 
programs written in reference format and produces an output listing of the 
source program input in reference format. 


The rules for spacing given in the discussion of the reference format 
take precedence over all other rules for spacing. 

The divisions of a source program must be ordered as follows: the 
Identification Division, then the Environment Division, then the Data 
Division, then the Procedure Division. Each division must be written 
according to the rules for the reference format. 


REFERENCE FORMAT REPRESENTATION 

The reference format for a line is represented as in Figure 2-1. 


I 

Margin 

L 


Margin 

C 


I 

Margin 


I 


Margin 


1 2 3 4 5 6 

v 


Sequence Number Area 

Indicator Area 


A 

] 

3 

R 

1 

1 

1 

1 ... 

8 9 0 

1 

2 

3 




. 






Area A 


Area' B 


5Tl±L 1S iinmediately C ° the left of the leftmost character position 

Margin C is Between the 6th and 7th character positions of a line. 

Margin A is between the 7th and 8th character positions of a line. 

Margin B is between the 11th and 12th character positions of a line. 

position^of^ •* rightist character 

between e ^rra„ a rt% r 8 S“.° CCUPieS ^ d “"«“ «-«• - f 

The indicator area is the 7th character position of a line. 
margli^A^ad margin^. c8aracter ?<>^Uon S 8. 10 and a, and is between 

Immediately tTtL^rl^T V 12 thr °“S h 72 ^1-slve; It begins 

of Margin R. * f "“S 1 ” 8 and ifediately to the left 


Figure 2-1. Reference Format for a COBOL Source Line. 

2-24 



Sequence Numbers 


A sequence number, consisting of six digits in the sequence area, may 
be used to label a source program line. 

Continuation of Lines 

Whenever a sentence, entry, phrase, or clause requires more than one 
line, it may be continued by starting subsequent line(s) in area B. These 
subsequent lines are called the continuation line(s). The line being 
continued is called the continued line. Any word or literal may be broken 
in such a way that part of it appears on a continuation line. 

A hyphen in the indicator area of a line indicates that the first 
nonblank character in area B of the current line is the successor of the 
last nonblank character of the preceding line without any intervening space. 
However, if the continued line contains a nonnu m eric literal without closing 
quotation mark, the first nonblank character in area B on the continuation 
line must be a quotation mark, and the continuation starts with the ^„n 

character immediately after that quotation mark. All spaces at the end of ') 
the continued line j are .considered part of the literal. Area A of a 
continuation line must be blank. 

If there is no hyphen in the indicator area of a line, it is assumed 
that the last character in the preceding line is followed by a space. 


Blank Lines 

A blank line is one that is blank from margin C to margin R, inclusive. 
A blank line can appear anywhere in the source program, except immediately 
preceding a continuation line. (See Figure 2-1). 

DIVISION, SECTION, PARAGRAPH FORMATS 
Division Header 

The division header must start in area A. (See Figure 2-1). 


Section Header 

The section header must start in area A. (See Figure 2-1). 

A section consists of paragraphs in the Environment and Procedure 
Divisions and Data Division entries in the Data Division. 


Paragraph Header, Paragraph—Name and Paragraph 


A paragraph consists of a paragraph-name followed by a period and a 
space and by zero, one or more sentences, or a paragraph header followed by 
one or more entries. Comment entries may be included within a paragraph. 
The paragraph header or paragraph—name starts in area A of any line 
following the first line of a division or a section. 
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The first sentence or entry in a paragraph begins either on the same 
line as the paragraph header or paragraph-name or in area B of the next 
nonblank line that is not a comment line. Successive sentences or entries 
either begin in area B of the same line as the preceding sentence or entry 
or in area B of the next nonblank line that is not a comment line. 

When the sentences or entries of a paragraph require more than one line 
they may be continued as described in CONTINUATION OF LINES in this Chapter. 


DATA DIVISION ENTRIES 


Each Data Division entry begins with a level indicator or a 
level-number, followed by a space, followed by its associated name (except 
in the Report Section), followed by a sequence of independent descriptive 
clauses. Each clause, except the last clause of an entry, may be terminated 
by either the separator semicolon or the separator comma. The last clause 
is always terminatedby a period followed by a space. 


There are two types of Data Division entries: those which begin with a 
((r level indicator and those which begin with" a level-number. 


A level indicator is the indicator: FD 
-COMPLETE ENTRY SKELETON in Chapters 5, 6 and 7) 


(see THE FILE DESCRIPTION 


In those Data Division entries that begin with a level indicator, the 
level indicator begins in area A followed by a space and followed in area B 
with its associated name and appropriate descriptive information. 


Those Data Division entries that begin with level-numbers are called 
data description entries. 


A level-number has a value taken from the set of values 1 through 49 

< 1 Le L el ; nUmberS ^ the range 1 thro “gh 9 may be written either as L 
single digit or as a zero followed by a significant digit. At least one 
space must separate a level-number from the word following the level-number. 


In those data description, entries that begin with* level-number 01 or 
(T 77, the level-number begins in area A followed by a space and followed in 
area B b 7 its associated record-name or item-name and 
descriptive information. 


appropriate 


Successive data description entries may have the same format as the 

* * °, r 4 be indented according to level-number. The entries in the 

does Ustin8 need be ^dented only if the input is Indented. Indentation 
does not affect the magnitude of a level-number. 

When level-numbers are to be indented, each new level-number may begin 
any number of spaces to the right of margin A. The extent of indentation to 
the right is determined only by the width of the physical medium. 

DECLARATIVES 


V 


„„ 'T. T? rd DECLAEAIIVE S and the key words END DECLARATIVES that 

d follou ' respectively, the declaratives portion of the Procedure 
Division must appear on a line by itself. Each mjt begin in area A and be 
followed by a period and a space (see Figure 2-1). 
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COMMENT LINES 


A comment line is any line with an asterisk in the continuation 
indicator area of the line. A comment line can appear as any line in a 
source program after the Identification Division header. Any combination of 
characters from the computer's character set may be included in area A and 
area B of that line (see Figure 2-1). The asterisk and the characters in 
area A and area B will be produced on the listing but serve as documentation 
only. A special form of comment line represented by a stroke in the 
indicator area of the line causes page ejection prior to printing the 
comment. 

Successive comment lines are allowed. Continuation of comment lines is 
permitted, except that each continuation line must contain an in the 
indicator area. 



RESERVED WORDS 



A full list of reserved words is given in Appendix A. 
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CHAPTER 3 


THE NUCLEUS 


FUNCTION OF THE NUCLEUS 


The Nucleus provides a basic language capability for the internal 
processing of data within the basic structure of the four divisions of a 
program. 

IDENTIFICATION DIVISION IN THE NUCLEUS 
GENERAL DESCRIPTION 

The Identification Division must be included in every COBOL source 
program. This division identifies the source program and the resultant 
output listing. In addition, the user may include the date the program is 
written and such other information as desired under the paragraphs in the 
general format shown below. 


ORGANIZATION 

Paragraph headers identify the type of information contained in the 
paragraph. The name of the program must be given in the first paragraph, 
which is the PROGRAM-ID paragraph. The other paragraphs are optional and 
may be included in this division at the user’s choice, in the order of 
presentation shown by the general format below. 


Structure 


The general format of the paragraphs in the Identification Division is 
given below and shows the order of presentation in the source program. 

General Format 


IDENTIFICATION DIVISION 
PROGRAM-ID . program-name. 

AUTHOR . [comment-entry] 
INSTALLATION . [comment-entry] 
DATE-WRITTEN. [comment-entry] 



DATE-COMPILED. [comment-entry] 


SECURITY. [comment-entry] 


-MtM 


3 



Syntax Rules 

1. The Identification Division must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period and a space. 
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2 . 


The comment-entry may be any combination of the characters from the 
computer's character set. The continuation of the comment—entry by the 
use of the hyphen in the indicator area is not permitted; however, the 
comment-entry may be contained on one or more lines. 

THE PROGRAM-ID PARAGRAPH 

Function 


The PROGRAM—ID paragraph gives the name by which a program is 
identified. 


General Format 


PROGRAM-ID . program-name. 


Syntax Rules 

1. The program-name must conform to the rules for formation of a 
user-defined word. 


General Rules 

1* * PROGRAM-ID paragraph must contain the name of the program and must 

be present in every program. 

2. The program-name identifies the source program and all listings 
pertaining to a particular program. 


THE DATE-COMPILED PARAGRAPH 
Function 


The DATE—COMPILED paragraph provides the compilation date in the 
Identification Division source program listing. 

General Format 

DATE-COMPILED . comment-entry ... 

Syntax Rule 

The comment-entry may be any combination of the characters from the 
computer's character set. The continuation of the comment entry by use of 
the hyphen is not permitted; however, the comment entry may be contained on 
one or more lines. 


General Rule 


The paragraph-name DATE-COMPILED causes the date string specified in 
the DATE compiler directive to be inserted during program compilation. If a 
DATE-COMPILED paragraph is' present, the comment-entry is replaced in its 

entirety_ by the string entered with the DATE compiler directive. . See the 
CiS ’CGdGij Operating Guide. 
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ENVIRONMENT DIVISION IN THE NUCLEUS 


CONFIGURATION SECTION 

The SOURCE-COMPUTER Paragraph 

Function 

The SOURCE-COMPUTER paragraph identifies the computer upon which the 
program is to be compiled. 

General Format 

SOURCE COMPUTER . computer-name. 


Syntax Rule 

Computer-name must be one COBOL word defined by the user. 

General Rules 

The computer-name provides a means for identifying equipment 
configuration, in which case the computer-name and its implied configuration 
are specified by the user. 


The OBJECT-COMPUTER Paragraph 
Function 


The OBJECT-COMPUTER Paragraph identifies the computer on which the 
program is to be executed. 


General Format 

OBJECT-COMPUTER. 


computer-name 


MEMORY SIZE integer 


{ WORDS 
CHARACTERS 
MODULES 


[,PROGRAM COLLATING SEQUENCE IS alphabet-name] 

Syntax Rule 

1. Computer-name must be one COBOL word defined by the user. 


General Rules 

1. The computer-name provides a means for identifying equipment 
configuration, in which case the computer-name and its implied 
configurations are specified by the user. The configuration definition 
contains specific information concerning the memory size. 

The implementor defines what is to be done if the subset specified by 
the user is less than the minimum configuration required for running 
the object program. 





2. If the PROGRAM COLLATING SEQUENCE Clause is specified, the collating 
sequence associated with alphabet-name is used to determine the truth 
value of any nonnumeric comparisons: 

Explicitly specified in relation conditions (see Relation Condition 
later in this Chapter). 

3. If the PROGRAM COLLATING SEQUENCE Clause is not specified, the native 
collating sequence is used. Appendix B lists the full ASCII collating 
sequence (native) and those characters used in COBOL 

4. If the PROGRAM COLLATING SEQUENCE Clause is specified, the program 
collating sequence is the collating sequence associated with the 
alphabet-name specified in that Clause. 

5. The PROGRAM COLLATING SEQUENCE Clause is also applied to any nonnumeric 
merge or sort keys. 


The SPECIAL-NAMES Paragraph 
Function 

The SPECIAL-NAMES paragraph provides a means of relating 
implementor-names to user-specified mnemonic-names and of relating 
alphabet-names to character sets and/or 'collating sequences. 

General Format 

SPEPIAL-NAMES . 

1 0 j 

. ( IS_ mnemonic-name [,0N STATUS _IS_ condition-name-1] 

♦ l [ , 0FF STATUS _IS_ condition-name-2] 



( STANDARD-1 ) 

, alphabet-name IS 

) NATIVE f 


t, CURRENCY SIGN IS literal-9] 
[, DECIMAL-POINT IS COMMA ] 

[, CONSOLE IS CRT ] 

{» CURSOR is data-name-i]- 


General Rules 

1. If the implementor-name is a switch, at least one condition-name must 
be associated with it. The status of the switch is specified by 
condition-names and interrogated by testing the condition-names (see 
Switch-Status Condition later in this Chapter). 
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2 . 


The alphabet-name clause provides a means for relating' a name to a 
specified character code set and/or collating sequence. When 
alphabet-name is referenced in the PROGRAM COLLATING SEQUENCE clause 
(see THE OBJECT-COMPUTER PARAGRAPH in this Chapter). The alphabet-name 
clause specifies a collating sequence. When alphabet-name is 
referenced in a CODE-SET clause in a file description entry (see The 
File Description — Complete Entry Skeleton in Chapter 5), the 
alphabet-name clause specifies a character code set. 




a. 


b. 


If the STANDARD-1 phrase is specified, the character code set or 
collating sequence identified is that defined in American National 
Standard Code for Information Interchange, X3.4-1968. Appendix B 
defines the correspondence between the characters of the standard 
character set and the characters of the native character set. 

If the NATIVE phrase is specified, the native character code set 
or native collating sequence is used. The native collating 
sequence is as in ANSI publication X3. 4-1968 (see Appendix B). 


The character that has the highest ordinal position in the program 
collating sequence specified is associated with the figurative constant 
HIGH-VALUE. If more than one character has the highest position in the 
program collating sequence, the last character specified. 

The character that has the lowest ordinal position in the program 
collating sequence specified is associated with the figurative constant 
LOW-VALUE. If more than one character has the lowest- position in the 
program collating sequence, the first character specified is associated 
with the figurative constant LOW-VALUE. 

The literal which appears in the CURRENCY SIGN IS literal clause is 
used in the PICTURE clause to represent the currency symbol. The 
literal is limited to a single character and must not be one of the 
following characters. 

* digits 0 thru 9; 

* alphabetic characters A, B, C, D, L, P, R, S, V, X, Z, or the 
space; 

* special characters T *’, '+', '(' ')’ ' ,,T 
7 ? or ' = 

If this clause is not present, only the currency sign is used in the 
PICTURE clause. 

The clause DECIMAL-POINT IS COMMA means that the function of comma and 
period are exchanged in the character-string of the PICTURE clause and 
in numeric literals. 


Q 


The clause CURSOR IS specifies the data—name to contain the CRT cursor 
address as used by the ACCEPT statement. If CURSOR IS is not specified 
the default cursor position on executing an ACCEPT statement is the 
'Home* position at top left of the CRT screen. The CURSOR IS clause 
enables a program to retain the position at the end of execution of the 
last ACCEPT statement of to specify the initial position at the start 
of any ACCEPT statement. This is a useful facility when programming 
menu-type operator prompts: The operator need then only move the 

(Addendum 1) 
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cursor to. the selected option prompt and press RETURN or just press 
RETURN for the default option. 

Date-name contains the name of a PIC 9999 field in which the most 
significant 99 represents a line count in the range one to the maximum 
number of lines on the user screen, and the least significant 99 
i represents a character position in the range one to the maximum 
positions allowed by the width of the user screen. If data-name is 
zero, the effect is as if the CURSOR IS clause was not used, i.e., 
initial cursor position is top left of screen. (See also THE 
ACCEPT STATEMENT later in this Chapter). 
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DATA DIVISION IN THE NUCLEUS 


WORKING STORAGE SECTION 

The Working-Storage Section is composed of the section header, followed 
by data description entries for noncontiguous data items and/or record 
description entries. Each Working-Storage Section record name and 
noncontiguous item name must be unique. 

Noncontiguous Working-Storage 

Items^ and constants in Working-Storage which bear no hierarchical 
relationship to one another need not be grouped into records, provided they 
do not need to be further subdivided. Instead, they are classified and 
defined in a separate data description entry which begins with the special 
level-number, 77. 

following data clauses are required in each data descriptions 

/ 

Level-number 77 
Data-name 

The PICTURE clause or the USAGE IS INDEX clause 

Other data description clauses are optional and can be used to complete 
the description of the item if necessary. 

Working-Storage Records 

Data elements and constants in Working-Storage which bear a definite 
hierarchic relationship to one another must be grouped into records 
according to the rules for formation of record descriptions. All clauses 
which are used in record descriptions in the File Section can be used in 
record descriptions in the Working-Storage Section. 

Initial Values 


The 

entry: 

* 

* 

* 


The initial value of any item in the Working-Storage Section except an 
index data item is specified by using the VALUE clause with the data item. 
The initial value of any index data item is unpredictable. 


THE DATA DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 


A data description entry specifies the characteristics of a particular 
item of data. 



General Format 


level-number 


data-name-1 

FILLER 


[; REDEFINES data-name-2] 


/ PICTURE ) 
—/ 


IS character-string 





COMPUTATIONAL 



COMP 


; [USAGE IS] 

C0MPUTATI0NAL-3 



COMP-3 



DISPLAY 



[sign is] { ^ling } [ separate. , character]] 

( SYNCHRONIZED ) ( LEFT 
\ SYNC / \ RIGHT jj 

( JUSTIFIED ) 1 

{ JUST-} 1110111 J 

BLANK WHEN ZERO ] 

VALUE IS literal] 

Syntax Rules 

1. The level-number in Format 1 may be any number from 01-49 or 77. 

2. The clauses may be written in any order with two exceptions: the 
data-name-1 or FILLER clause must- immediately follow the level-number; 
the REDEFINES clause, when used, must immediately follow the 
data—name—1 clause. 

3* The PICTURE clause must be specified for every elementary item except 
an index data item, in which case use of this clause is prohibited. 

General Rule 


[■ 

[■ 

[' 

[; 

[; 


The clauses SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO, must 
not be specified except for an elementary data item. 


3-6 




THE BLANK WHEN ZERO CLAUSE 


Function 


The BLANK 
value is zero. 


WHEN ZERO clause permits the blanking of an item when its 


General Format 

BLANK WHEN ZERO 


Syntax Rule 


The BLANK WHEN ZERO clause can be used 
whose PICTURE is specified as numeric 
THE PICTURE CLAUSE later in this Chapter). 


only for an elementary item 
or numeric edited. (See 


General Rules 


1. When the BLANK WHEN ZERO clause is used, the item will contain nothing 
but spaces if the value of the item is zero. 


2. When the BLANK WHEN ZERO clause is used for an item whose PICTURE is 
numeric, the category of the item is considered to be numeric edited. 


THE DATA-NAME OR FILLER CLAUSE 
Function 

A data-name specifies the name of the data being described. The word 
FILLER specifies an elementary item of the logical record-that cannot be 
referred to explicitly. 

General Foramt 


j data-name) 

1 FILLER f 

Syntax Rule 

1. In the File, Working-Storage, Communication and Linkage Sections, a 
data-name or the key word FILLER must be the first word following the 
level-number in each data description entry. 

General Rule 


1 . 


The key word FILLER may be used to name an elementary item in a record. 
Under no circumstances can a FILLER item be referred to explicitly. 



THE JUSTIFIED CLAUSE 


<n 


Function 


4 


The JUSTIFIED clause specifies non-standard positioning of data within 
a receiving data item. 


General Format 

JUSTIFIED 


JUST 
Syntax Rules 
1 . 


/ JUSTIFIED > 
\ JUST / 


RIGHT 


2 . 

3. 


level JUSTIFIED ClaUSS Can be s P ecifie d only at the elementary item 
JUST is an abbreviation for JUSTIFIED. 

The JUSTIFIED clause cannot be specified for any data item described as 
numeric or for which editing is specified. 


General Rules 


1 . 


2 . 


When a receiving data item is described with the JUSTIFIED clause and 

^?, d±n ? itSm 13 largSr than the receivl -ng data item, the 

leftmost characters are truncated. When the receiving data item is 

described with the JUSTIFIED clause and it is larger than the sending 

th* he d -r a1 L a 13 aligned at the rightmost character position in 

the data item with space fill for the leftmost character positions. 


When the JUSTIFIED clause Is omitted, 
data within an elementary item apply. 


the standard rules for aligning 
(See Standard Alignment Rules.) 



Uw 
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LEVEL NUMBER 


Function 


The level-number shows the hierarchy of data within a logical record. 
In addition, it is used to identify entries for working storage items, 
linkage items. 


General Format 


level-number 


Syntax Rules 

1 . a level-number is required as the first element in each data 
description entry. 

2. Data description entries subordinate to a File Description entry must 
have level—numbers with the values 01—49. (See THE FILE DESCRIPTION in 
Chapter 5). 

3. Data description entries in the Working-Storage Section and Linkage 
Section must have level-numbers with the values 01-49. 


General Rules 

1. The level-number 01 identifies the first entry in each record 
description or a report group. 

2. The level-number 77 is assigned to identify noncontiguous working 
storage data items, noncontiguous li nka ge data items, and can be used 
only as described by Format 1 of the data description skeleton. (See 
THE DATA DESCRIPTION - COMPLETE ENTRY SKELETON in this Chapter). 

Multiple level 01 entries subordinate to any given level indicator, 
represent implicit redefinitions of the same area. 


3. 



THE PICTURE CLAUSE 


Function 


The PICTURE clause describes the general characteristics and editing 
requirements of an elementary item. 


General Format 


PICTURE ) 
PIC / 


IS character-string 


Syntax Rules 


1. A PICTURE clause can be specified only at the elementary item level. 

2. A character-string consists of certain allowable combinations of 
characters in the COBOL character set used as symbols. The allowable 
combinations determine the category of the elementary item. 

3. The maximum number of characters allowed in the character-string is 30. 

4. The PICTURE clause must be specified for every elementary item except 
an index data item, in which case use of this clause is prohibited. 

5. PIC is an abbreviation for PICTURE. 


6 . 


WheU 3S the Zer ° su PP ress ^ on symbol and the clause 

BLANK WHEN ZERO may not appear in the same entry. 


General Rules 


There are five categories of data that can be described with a PICTURE 
aipbabetlc, numeric, alphanumeric, alphanumeric edited, and numeric 
edited. General rules within these categories are given below: 

',V> Alphabetic Data Rules 

1. Its PICTURE character-string can only contain the symbols 'A', *3'; and 

2. Its contents when represented in standard data format must be anv 
combination of the twenty-six (26) letters of the Roman a^habet and 
the space from the COBOL character set. 

Numeric Data Rules 


1 . 


2 . 


Ih. PICTURE character-string can only contain the symbols ’9’. 'P' 

the'pS^DREA , “ U " be ' ° f dlglt that can be described b) 

the PICTURE character-string must range from 1 to 18 inclusive. 

If unsigned, the data In standard data format must be a combination of 
the Arabic numerals '2', '3', '4', '5', ’6’, '7', and 


if signed, the item 


( 


— — ■ * j axow 

representation of an operational sign 
this Chapter). 


may also contain a ’+' 


or other 


(see THE SIGN CLAUSE later in 
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Alphanumeric Data Rules 


1. The PICTURE character-string is restricted to certain combinations of 

the symbols 'A', 'X', ’9', and the item is treated as if the 

character-string contained all X's. A PICTURE character-string which 
contains all A's or all 9's does not define an alphanumeric item; and 

2. The contents when represented in standard data format can consist of 
any characters in the computer’s character set. 


Alphanumeric Edited Data Rules 

1. Its PICTURE character-string is restricted to certain combinations of 

the following symbols: 'A', ’X’, '9', ’B’, ’O', and ’/' as follows: 

a. The character-string must contain at least one *B’ and at least 
one 'X' or at least one 'O' (zero) and at least one 'X' or at 
least one '/' (stroke) and at least one 'X'; or 

b. The character-string must contain at least one 'O' (zero) and at 
least one 'A' or at least one '1' (stroke) and at least one 'A'; 
and 

2. The contents when represented in standard data format, are allowable 
characters in the computer's set. 


Numeric Edited Data Rules 

1 Its PICTURE character-string is restricted to certain combinations of 
the symbols »B', '/’, 'P', 'V, 'Z\ 'O', '9', 

'CR', 'DB', and the currency symbol. The allowable combinations are 
determined from the order of precedence of symbols and the editing 
rules as follows: 


a. The number of digit positions that can be represented in the 
PICTURE character-string must range from 1 to 18 inclusive. 

b. The character-string must contain at least one 'O', 'B', '/', 'Z , 

»+', » f » t 'CR', 'DB', or currency symbol. 

2. The contents of the character positions of these symbols that are 
allowed to represent a digit in standard data format, must be one of 

the numerals. 


Elementary Item Size 


The size of an elementary item, where size means the number of 
character positions occupied by the elementary item in standard data format, 
is determined by the number of allowable symbols that represent 
positions. An integer which is enclosed in parentheses 
'A', 'X', '9', 'P\ 'Z', 

symbol indicates the number of 
that the following symbols may appear 

»V', 'CR', and 'DB'. 


character 
following the sybols 
»*» 'B', '/', 'O', '+', or the currency 

consecutive occurrences of the symbol. Note 
only once in a given PICTURE: S , 



Symbols Used 


The functions of the symbols used to describe an elementary item are 
explained as follows: 

^ - Escti a in the character-string represents a character position which 
can contain only a letter of the alphabet or a space. 

B - Each 'B* in the character-string represents a character position into 
which the space character will be inserted. 


Each P indicates an assumed decimal scaling position and is used to 
specify the location of an assumed decimal point when the point is not 
within the number that appears in the data item. The scaling position 
character T P T is not counted in the size of the data item. Scal in g 
position characters are counted in determining the mayfnimn number of 
digit positions (18) in numeric edited items or numeric items. The 
scaling position character 'P' can appear only to the left or right as 
a continuous string of 'P's within a PICTURE description; since the 
scaling position character 'P' implies an assumed decimal point (to the 
left of P's if 'P's are leftmost PICTURE characters and to the right 
if P s are rightmost PICTURE characters), the assumed decimal point 
symbol V is redundant as either the leftmost or rightmost character 
within such a PICTURE description. The character 'P' and the insertion 
character . (period) cannot both occur in the same PICTURE 
character-string. If, in any operation involving conversion of data 
from one form of internal representation to another, the data item 
being converted is described with the PICTURE character ’P', each digit 
position described by a 'P' is considered to contain the value zero, 
and the size of the data item is considered to include the digit 
positions so described. 


S - 


V - 


The letter 'S' is used in a character-string to indicate the presence, 
but neither the representation nor, necessarily, the position of an 

mUSt be Wr±tten aS the leftmost character in the 
PICTURE. The S is not counted in determining the.size (in terms of 
standard data format characters) of the elementary item unless the 

rwARArTVR SU ^ eCt t0 " SIG ? Clause whlch specifies .the, optional SEPARATE 
CHARACTER phrase. (See the SIGN Clause in this Chapter.) 

The 'V' is used in a character-string to indicate the location of the 
assumed decimal point and may only appear once in a character-string. 
“ + V , , doea not re Present a character position and therefore is not 
counted in the size of the elementary item. When the assumed decimal 
point is to the right of the rightmost symbol in the string the 'V' is 


X - Each 'X» in the character-string is used to represent a character 
character 'set^ COUtain8 3117 allowable character from the computer's 

Z " lifiLir < character - st ring may only be used to represent the 

chfSrtPT- a ^ er K CharaCtSr P° 8it:ions wh *ch will be replaced by a space 
the contents of that character position is zero. Each 
Z is counted in the size of the item. 



9 - Each '9' in v the character-string represents a character position which 
contains a numeral and is counted in the size of the item. 

0 - Each 'O' (zero) in the character-string represents a character position 
into which the numeral zero will be inserted. The 'O' is counted in 
the size of the item. 

/ - Each '/' (stroke) in the character-string represents a character 

position into which the stroke character will be inserted. The '/' is 
counted in the size of the item. 

, - Each ' / (comma) in the character-string represents a character 

position into which the character '/ will be inserted. This character 
position is counted in the size of the item. The insertion character 
'/must not be the last character in the PICTURE character-string. 

. - Whan the character ^period) appears in the character-string is an 

editing symbol which represents the decimal point for alignment 

purposes and in addition, represents a character position into which 
the character will be inserted. The character is counted in 

the size of the item. For a given program the functions of the period 
and comma are exchanged if the clause DECIMAL-POINT IS COMMA is stated 
in the SPECIAL-NAMES paragraph. In this exchange the rules for the 
period apply to the comma and the rules for the comma apply to the 
period wherever they appear in a PICTURE clause. The insertion 

character *.' must not be the last character in the PICTURE 

character-s tring. 

+ , -, CR, DB - These symbols are used as editing sign control symbols. When 
used, they represent the character position into which the 
editing sign control symbol will be placed. The symbols are 
mutually exclusive in any one character-string and each 

character used in the symbol is counted in determining the 
size of the data item. 

* - Each (asterisk) in the character-string represents a leading 

numeric character position into which an asterisk will be placed when 
the contents of that position is zero. Each '*' is counted in the size 
of the item. 

cs — The currency symbol in the character—string represents a character 
position into which a currency symbol is to be placed. The currency 
symbol in a character-string is represented by either the currency sign 
or by the single character specified in the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. The currency symbol is counted in the size of 
the item. * 


Editing Rules 

•jhere are two general methods of performing editing in the PICTURE 
clause, either by insertion or by suppression and replacement. There are 
four types of insertion editing available. They are: 

* Simple insertion 

* Special insertion 

* Fixed insertion 

* Floating insertion 



There are two types of suppression and replacement editing: 

* Zero suppression and replacement with spaces 

* Zero suppression and replacement with asterisks 

The type of editing which may be performed upon an item is dependent 
upon the category to which the item belongs. Table 3—1 specifies which type 
of editing may be performed upon a given category. 

Table 3-1. Editing Types for Data Categories 


CATEGORY 

TYPE OF EDITING 

Alphabetic 

Simple insertion T B' only 

Numeric 

None 

Alphanumeric 

None 

Alphanumeric Edited 

Simple insertion 'O', 'B' and '/’ 

Numeric Edited 



Floating insertion editing and editing by zero suppression and replace¬ 
ment. are mutually exclusive in a PICTURE clause. Only one type of 
replacement may be used with zero suppression in a PICTURE clause. ' 

Simple Insertion Editing 

Simple Insertion Editing. The (comma), 'B' (space), ’O' (zero), 
and * / * (stroke) are used as the insertion characters. The insertion 
characters are counted in the size of the item and represent the position in 
the item into which the character will be inserted. 


Special Insertion Editing 

Special Insertion Editing. The ».» (period) is used as the insertion 
character. In addition to being an insertion character it also represents 
the decimal point for alignment purposes. The insertion character used for 
the actual decimal point is counted in the size of the item. The use of the 
assumed decimal point, represented by the symbol 'V* and the actual decimal 
point, represented by the insertion character, in the same PICTURE 
character-string is disallowed. The result of special insertion editing is 
the appearnace of the insertion character in the item in the same position 
as shown in the character—string. 

Fixed Insertion Editing 


Fixed Insertion Editing. The currency symbol and the editing sign 
control symbols, *+', 'CR', ’DB’, are the insertion characters. Only 
one currency symbol and only one of the editing sign control symbols can be 
used in a given PICTURE character-string. When the symbols T CR' or 'DB* are 
used they represent two character positions in determining the size of the 
item and they must represent the rightmost character positions that are 
counted in the size of the item. The symbol or when used, must be 
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either the leftmost or rightmost character position to be counted in the 
size of the item. The currency symbol must be the leftmost character 

Table 3-2 Editing Symbols in PICTURE Character-Strings 


EDITING SYMBOL IN 
PICTURE CHARACTER-STRING 

RESULT 

DATA ITEM 
POSITIVE OR ZERO 

DATA ITEM 
NEGATIVE 

+ 

+ 

— 

- 

space 

_ 

CR 

2 spaces 

CR 

DB 

2 spaces 

DB 


Floating Insertion Editing 

The currency symbol and editing sign control symbols ’+' or are the 
^^■oating insertion characters and as such are mutually exclusive in a given 
PICTURE character-string. 

Floating insertion editing is indicated in a PICTURE character-string 
by using a string of at least two of the floating insertion characters. 
This string of floating insertion characters may contain any of the fixed 
insertion symbols or have fixed insertion characters immediately to the 
of this string. These simple insertion characters are part of the 
floating string. 

The leftmost character of the floating insertion string represents the 
leftmost limit of the floating symbol in the data item. The rightmost 
character of the floating string represents the rightmost limit of the 
floating symbols in the data item. 

The second floating character from the left represents the leftmost 
limit of the numeric data that can be stored in the data item. Non-zero 
numeric data may replace all the characters at or to the right of this 
limit. 

In a PICTURE character—string, there are only two ways of representing 
floating insertion editing. One way is to represent any or all of the 
leading numeric character positions on the left of the decimal point by the 
insertion character. The other way is to represent all of the numeric 
character positions in the PICTURE character-string by the insertion 
character. 

If the insertion characters are only to the left of the decimal point 
in the PICTURE character-string, the result is that a single floating 
insertion character will be placed into the character position immediately 
preceding either the decimal point or the first non-zero digit in the data 
represented by the insertion symbol string, whichever is farther to the left 
in the PICTURE character-string. The character positions preceding the 
insertion character are replaced with spaces. 

If all numeric character positions in the PICTURE character-string are 
represented by the insertion character, the result depends upon the. value of 
the data. If the value is zero the entire data item will contain spaces. 




If the value is not zero, the result is the same as when the insertion 
character is only to the left of the decimal point. 

To avoid truncation, the minimum size of the PICTURE character-string 
for the receiving data item must be the number of characters in the sending 
data item, plus the number of non-floating insertion characters being edited 
into the receiving data item, plus one for the floating insertion character. 

Zero Suppression Editing 


The suppression of leading zeros in numeric character positions is 
indicated by the use of the alphabetic character 'Z' or the character 
(asterisk) as suppression symbols in a PICTURE character-string. These 
symbols are mutually exclusive in a given PICTURE character-string. Each 
suppression symbol is counted in determining the size of the item If 'Z' 
is used the replacement character will be the space and if the asterisk is 
used, the replacement character will be 

Zero suppression and replacement is indicated in a PICTURE 
character-strong by using a string of one or more of the allowable symbols 
to represent leading numeric character positions which are to be replaced 
when the associated character position in the data contains a zero. Any of 
the simple insertion characters embedded in the string of symbols or to the 
immediate right of this string are part of the string. 

In a PICTURE character-string, there are only two ways of representing 
zero suppression. One way is to represent any or all of the leading numeric 

The otw P0sit , ±011 ! to the left of the decimal point by suppression symbols. 

PICTURE character f epr f Sent a11 of the numeric character positions in the 
PICTURE character-string by suppression symbols. 


Doint 11 ^ 6 ^ 8 ^ 6331011 , Symbols a PP ear onl y to the left of the decimal 
P . * ^ ea 2ero in the data which corresponds to a symbol in the 

string is replaced by the replacement character. Suppression Aminates at 
the first non-zero digit in the data represented by "the 
string or at the decimal point, whichever is encountered first. ^ 

If all numeric character positions in the PICTURE character-strine are 

ST53? i/ t S h U e PP s r r iOT ^ la and “* value ° f the 

SL *?It the same as if the suppression characters were only to the 

is ’Z' f tht P oin ^ If the value is zero and the suppression symbol 

is Z , the entire data item will be spaces. If the value is zero an dtht 

i:izr£ijr$:L u ’*’• the ^ 311 •" ^ £ z 


The symbols 


»*» 




Precedence Rules 

synboSt a 3 ;w«er-,X 0rde L V 

symbol(s) at the ton ct, S* ^ X at an intersection indicates that the 

tte seal's)at"the lift „r,r y Precede ’ in a givan =»ara=ter- 3 trlng. 
indicate that the avmhnle the row. Arguments appearing in braces 

indicated biT thf ayZi 'cs' mUtUa117 ““ :luS:tV ' S - The ™y. symbol is 
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In Table 3-3, non-floating insertion symbols ’+’ and floating 
insertion symbols 'Z\ ? -', and 'cs', and other symbol 'P* appear 
twice in the PICTURE character precedence chart. The leftmost column and 
uppermost row for each symbol represents its use to the left of the decimal 
point position. The second appearance of symbol in the row and column 
represents its use to the right of the decimal point position. 




THE REDEFINES CLAUSE 


Function 

The REDEFINES clause allows the same computer storage area to be 
described by different data description entries. 

General Format 


level-number data—name—1; REDEFINES data—name—2 

NOTE: Level-n umb er, data-name-1 are shown in the above format to improve 

clarity. Level-number and data-name-1 are not part of the 
REDEFINES clause. 

Syntax Rules 

1. The REDEFINES clause, when specified, must immediately follow 
data-name-1. 

2. The level-numbers of data-name-1 and data-name-2 must be identical. 

3. This clause must not be used in level 01 entries in the File Section. 
(See General Rule 2 of THE DATA RECORDS CLAUSE in Chapter 5. 

4. This clause must not be used in level 01 entries in the Communication 
Section. 

5. The data description entry for data-name-2 cannot contain an OCCURS 
clause. Neither the original definition nor the redefinition can 
include an item whose size is variable as defined in the OCCURS clause. 
(See THE OCCURS CLAUSE in Chapter 4). 

6. No entry having a level-number numerically lower than the level-number 
of data-name-2 and data-name-1 may occur between the data description 
entries of data-name—2 and data—name—1. 

General Rules 

1. Redefinition starts at data-n am e-2 and ends when a level-number less 
than or equal to that of data-name-2 is encountered. 

2. When the level—number of data—name—1 is other than 01, it must specify 
the same number of character positions that the data item referenced by 
data-name-2 contains. It is Important to observe that the REDEFINES 
clause specifies the redefinition of a storage area, not of the data 
items occupying the area. 

3. Multiple redefinitions of the same character positions are permitted. 
The entries giving the new descriptions of the character positions must 
follow the entries defining the area being redefined, without 
intervening entries that define new character positions. Multiple 
redefinitions of the same character positions must all use the 
data—name of the entry that, originally defined the area. 



The entries giving the new description of the character positions must 
not contain any VALUE clauses. 


Multiple level 01 entries subordinate to any given level 
represent implicit redefinitions of the same area. 


indicator 




THE SIGN CLAUSE 


Function 

The SIGN clause specifies the position and the mode of representation 
of the operational sign when it is necessary to describe these properties 
explicitly. 

General Format 

[ SIGN IS] ^fgg | G | [ SEPARATE CHARACTER] 


Syntax Rules 

1. The SIGN clause may be specified only for a numeric data description 
entry whose PICTURE contains the character ’S', or a group item 
containing at least one such numeric data description entry. 

2. The numeric data description entries to which the SIGN clause applies 
must be described as usage is DISPLAY. 

3. At most one SIGN clause may apply to any given numeric data description 
entry. 

4. If the CODE-SET clause is specified, any signed numeric data 
description entries associated with that file description entry must be 
describedwith the SIGN IS SEPARATE clause. 

General Rules 

1. The optional SIGN clause, if present, specifies the position and the 
mode of representation of the operational sign for the numeric data 
description entryto which it applies, or for each numeric data 
description entry subordinate to the group to which it applies. The 
SIGN clause applies only to numeric data. description entries whose 
PICTURE contains the character 'S'; the 'S’ indicates the presence of, 
but neither the representation nor, necessarily, the position of the 
operational sign. 

2. A numeric data description entry whose picture contains the character 
'S’, but to which no optional SIGN clause applies, has an operational 
sign, but neither the representation nor, necessarily, the position of 
the operational sign is specified by the character S • In this 
(default) case, general rules 3 through 5 do not apply to such signed 
numeric data items. 

3 . ‘ if the optional SEPARATE CHARACTER phrase is not present, then: 

a. The operational sign will be presumed to be associated with the 
leading (or, respectively, trailing) digit position of the 
elementary numeric data item. 

b. The .letter ’S’ in a PICTURE character-string is not counted in 
determining the size of the item (in terms of standard data format 
characters). 




4. 


If the optional SEPARATE CHARACTER phrase is present, then: 

a. The operational sign will be presumed to be the leading (or, 
respectively, trailing) character position of the elementary 
numeric data item; this character position is not a digit 
position. 

b. The letter 'S' in a PICTURE character—string is counted in 
determining the size of the item (in terms of standard data format 
characters). 

c. The operational signs for positive and negative are the standard 

data format characters ’+' and respectively. 

5. Every numeric data description entry whose PICTURE contains the 
character ’S' is a signed numeric data description entry. If a SIGN 
clause applies to such an entry and conversion is necessary for 
purposes of computation or comparisons, conversion takes place 
automatically. 
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THE SYNCHRONIZED CLAUSE 


Function 


The SYNCHRONIZED clause specifies the alignment of an elementary item 
on the natural boundaries of the computer memory (see ITEM ALIGNMENT FOR 
INCREASED OBJECT-CODE EFFICIENCY in Chapter 2). 

General Format 


{ SYNCHRONIZED \ 

'j LEFT 

\ SYNC / 

) RIGHT f 


Syntax Rules 

1. This clause may only appear with an elementary item. 

2. SYNC is an abbreviation for SYNCHRONIZED. 


General Rules 


1. TRie "SYNCHRONISED’ cXause : ~iar acceptetT~~g5f dccumehf ation purposas^onT yl 

2. This clause specifies that the subject data item is to be aligned in 
the computer such that no other data item occupies any of the character 
positions between the leftmost and rightmost natural boundaries 
delimiting this data item. If the number of character positions 
required to store this data item is less than the number of character 
positions between those natural boundaries, the unused character 
positions (or portions thereof) must not be used for any other data 
item. Such unused character positions, however, are included in: 


a. The size of any group item(s) to which the elementary item 
belongs; and 

b. The character positions redefined when this data item is. the 
object of a REDEFINES clause. 

3. SYNCHRONIZED not followed by either RIGHT or LEFT specifies that the 
elementary item is to be positioned between natural boundaries in such 
a way as to effect efficient utilization of the elementary data item. 

4. SYNCHRONIZED LEFT specifies that the elementary item is to be posi¬ 
tioned such that it will begin at the left character position of the 
natural boundary in which the elementary item is placed. 

5. SYNCHRONIZED RIGHT specifies that the elementary item is to be posi¬ 
tioned such that it will terminate on the right character position of 
the natural boundary in which the elementary item is placed. 

6. Whenever a SYNCHRONIZED Item is referenced in the source program, the 
original size of the item, as shown in the PICTURE clause, is used in 
determining any action that depends on size, such as justification, 
truncation or overflow. 
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If the data description of an item contains the SYNCHRONIZED clause and 
an operational sign, the sign of the item appears in the normal 
operational sign position, regardless of whether the item is 
SYNCHRONIZED LEFT or SYNCHRONIZED RIGHT. 

When the SYNCHRONIZED clause is specified in a data description entry 
of a data item that also contains an OCCUR.S clause, or' in a data 
description entry of a data item subordinate to a data description 
entry that contains an OCCURS clause, then: 

a. Each occurrence of the data item is SYNCHRONIZED. 

b. Any implicit FILLER generated for other data items within that 
same table are generated for each occurrence of those data items. 

This clause is hardware dependent. 




THE USAGE CLAUSE 
•Function 


The USAGE clause specifies the format of a data item in the computer 
storage. 


General Format 


[USAGE IS] 


COMPUTATIONAL 

COMP 

DISPLAY 

C0MPUTATI0NAL-3 

COMP-3 


Syntax Rules 

1. The PICTURE character-string of a COMPUTATIONAL or CCMPUTATIONAL-3 item 
ran contain only '9's, the operational sign character 'S', the implied 
decimal point character 'V', one or more 'P's. (See THE PICTURE CLAUSE 
earlier in this Chapter). 

2. COMP is an abbreviation for COMPUTATIONAL. 


General Rules 

1. The USAGE clause can be written at any level. If the USAGE clause is 
written at group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group to which the item belongs. 

2. This clause specifies the manner in which a data item is represented in 
the storage of a computer. It does not affect the use of the data 
item, although the specifications for some statements in the Procedure 
Division may restrict the USAGE clause of the operands referred to. 
The USAGE clause may affect the radix or type of character 
representation of the item. 

3. A COMPUTATIONAL or C0MPUTATI0NAL-3 item is capable of representing a 
value to be used in computations and must be numeric. If a group item 
is described as COMPUTATIONAL (-3), the elementary items in the group 
are COMPUTATIONAL(-3). The group item itself is not COMPUTATIONAL (-3) 
and cannot be used in computations. 

4. The USAGE IS DISPLAY clause indicates that the format of the data is a 
standard data format. 

5. If the USAGE clause is not specified for an elementary item, or for any 
group to which the item belongs, the usage is implicitly DISPLAY. 

6. Space requirements for the various USAGE storage options are given 
under Selection of Character Representation ■and Radix in Chapter 2. 



THE VALUE CLAUSE 


./O 

Function 

The VALUE clause defines the value of constants, the initial value of 
working storage items, the initial value'" of dat'iT irefiiS~ in fh‘e Communication’ 
Section. 

General Format 

VALUE is literal 

Syntax Rules 

1. The VALUE clause cannot be stated for any items whose size is variable. 
(See THE OCCURS CLAUSE in Chapter 4). 

2. A signed numeric literal must have associated with it a signed numeric 
PICTURE character-string. 

3. All numeric literal in a' VALUE clause of an item must' have a' value 
which is within the range of values indicated by the PICTURE clause, 
and must not have a value which would require truncation of nonzero 

Nonnumeric literals in a VALUE clause of an item must not 
exceed the size indicated by the PICTURE clause. 



General Rules 

1. The VALUE clause must not conflict with other clauses in the data 
description of the item or in the data description within the hierarchy 
of the item. The following rules apply: 

a. If the category of the item is numeric, all literals in the VALUE 

clause must be numeric. If the literal defines the value of a 
working storage item, the literal is aligned in the data item 
according to the standard alignment rules. (See Standard 
Alignment Rules in Chapter 2 )-. “ 

b. If the category of the item is alphabetic, alphanumeric, 
alphanumeric edited or numeric edited, all literals in the VALUE 
clause must be nonnumeric literals. The literal is aligned in the 
data item as if the data item had been described as alphanumeric. 
(See STANDARD ALIGNMENT RULES in Chapter 2). Editing characters 
in the PICTURE clause are included in determining the size of the 
data item (see THE PICTURE CLAUSE earlier in this Chapter) but 
have no effect on initialization of the data item. Therefore, the 
VALUE for an edited item is presented in an edited form. 

c. Initialization takes place independent of any BLANK WHEN ZERO or 
JUSTIFIED clause that may be specified. 
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Data Description Entries other than Condition-Names 


Rules governing the use of the VALUE clause differ with the respective 

sections of the Data Division: 

1. The VALUE clause cannot be used in the File Section. In the File 
Section, the VALUE clause may be used only in condition-name entries. 

the Working—Storage Section, the VALUE clause may be used to specify 
the initial value of a data item; in which case the clause causes the 
item to assume the specified value at the start of the object program. 
If the VALUE clause is not used in an item's description, the initial 
value is undefined. 

3. The VALUE clause cannot be used in the Linkage Section. In the Linkage 
Section, the VALUE clause may be used only In- condition—name entries. 

4. The VALUE clause must not be stated in a data description entry that 
contains an OCCURS clause, or in an entry that is subordinate to an 
entry containing an OCCURS clause. (See THE OCCURS CLAUSE in Chapter 

4). 

5. The VALUE clause must not be stated in a data description entry that 
contains a REDEFINES clause, or in an entry that Is subordinate to an 
entry containing a REDEFINES clause. 

6. If the VALUE clause is used in an entry at the group level, the literal 
must be a figurative constant or a nonnumeric literal, and the group 
area Is initialized without consideration for the individual elementary 
or group items contained within this group. The VALUE clause cannot be' 
stated.at the subordinate levels within this group. 

7. The VALUE clause must not be written for a group containing items with 
descriptions, including JUSTIFIED, SYNCHRONIZED, or USAGE (other than 
USAGE IS DISPLAY). 


3-29 


(Addendum 1) 



PROCEDURE DIVISION IN THE NUCLEUS 


CONDITIONAL EXPRESSIONS 

Conditional expressions identify conditions that are tested to enable 
the object program to select between alternate paths of control depending 
upon the truth value of the condition. Conditional expressions are 
specified in the IF, PERFORM and SEARCH statements. There are two 
categories of conditions associated with conditional expressions: simple 
conditions and relation conditions. Each may be enclosed within any number 
of paired parentheses, in which case its category is not changed. 


Simple Conditions 


The simple conditions are the relation, class, switch-status, 
conditions. A simple condition has a truth value of 'true' or ’false*. The 
inclusion in parentheses of simple conditions does not change the simple 
truth value. 


;(•. Relation Condition 


A relation condition causes a comparison of two operands, each of which 
may be the data item referenced by an identifier, a literal. A relation 
condition has a truth value of ’true' if the relation exists between the 
operands. Comparison of two numeric operands is permitted regardless of the 
formats specified in their respective USAGE clauses. However, for all other 
comparisons the operands must have the same usage. If either of the 
operands is a group item, the nonnumeric comparison rules apply. 


The general format of a relation condition is as follows;: 


identifier-1 \ 
literal-1 / 



IS 

[NOT] 

GREATER THAN ) 

IS 

[NOT] 

LESS THAN 

IS 

[NOT] 

EQUAL TO 

IS 

[NOT] 

> 

IS, 

[NOT] 

< 

IS 

[NOT] 

m 


identifier-2) 
literal-2 ) 


The required relational characters ’<’, ’>», an d '«» are not 

underlined to avoid confusion with other symbols such as ’>' 
(Greater than or equal to) “ 


.v f i T3t °P erand (identifier-1 or literal-1) is called the subject of 
the condition; the second operand (identifier-2 or literal-2) is called the 
object of the condition. The relation condition must contain at least one 
reference to a variable. 


ral Th ® relational operator specifies the type of comparison to be made in 
relation condition. a space must precede and follow each reserved word 
comprising the relational operator. When used, ’NOT’ and the next key word 
or relation character are one relational operator that defines the 

omparison to be executed for truth value; e.g., 'NOT EQUAL' is a truth test 
tor an unequal. 


a 
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Comparison; 'NOT GREATER' is a truth test for an ’equal' or 'less' 
comparison. The meaning of the relational operators is as shown in Table 
3-4. 


Table 3-4. Relational Operators. 


Meaning 

Relational Operator 

Greater than or not greater than 

IS NOT GREATER THAN 

IS NOT > 

Less than or not less than 

IS NOT LESS THAN 

IS NOT < 

Equal to or not equal to 

IS NOT EQUAL TO 

IS NOT ■ - 

The required relational characters ’>', '<’, and '=*' are not 
underlined to avoid confusion with other symbols such as *>' 
(Greater than or equal to). 


Comparison of Numeric Operands: For operands whose class is numeric a 

comparison is made with respect to the algebraic value of the operands. The 
length of the literal in terms of number of digits represented, is not 
significant. Zero is considered a unique value regardless of the sign. 

Comparison of these operands is permitted regardless of the manner in which 
their usage is described. Unsigned numeric operands are considered positive 
for purposes of comparison. 

Comparison of Nonnumeric Operands: For nonnumeric operands, or one numeric 

and one nonnumeric operand, a comparison is made with respect to a specified 

collating sequence of characters (see The OBJECT-COMPUTER Paragraph in this 
Chapter). If one of the operands is specified as numeric. It must be an 

integer data item or an integer literal and: 

]_^ xf the nonnumeric operand is an elementary data item or a nonnumeric 
literal, the numeric operand is treated as though it were moved to an 
elementary alphanumeric data item of the same size as the numeric data 
item (in terms of standard data format characters), and the contents of 
this alphanumeric data item were then compared to the nonnumeric 
operand. (See THE MOVE STAIMENT in this Chapter, and the PICTURE 

Character 'P' under the Reading Symbols Used earlier in this Chapter). 

2. If the numeric operand is a group item, the numeric operand is treated 

as though it were moved to a group item of the same size as the numeric 

data item (in terms of standard data format characters), and the 
contents of this group item were then compared to the nonnumeric 
operand. (See THE MOVE STATEMENT in this Chapter, and the PICTURE 

character 'P* under the Heading Symbols Used earlier in this Chapter). 

3. A non—integer numeric operand cannot be compared to a nonnumeric 
operand. 




The size of an operand is the total number of standard data format 
characters in the operand. Numeric and nonnumeric operands may be compared 
only when their usage is the same. 

There are two cases to consider: 

1. Operands of equal size - I ! f the operands are of equal size, comparison 
effectively proceeds by comparing characters in corresponding character 
positions starting from the high order end and continuing until either 
a pair of unequal characters is encountered or the low order end of the 
operand is reached, whichever comes first. The operands are determined 
to be equal if all pairs of characters compare equally through the last 
pair, when the low order end is reached. 

The j.irst encountered pair of unequal characters is compared to deter - 
mine their relative position in the collating, sequence. The operand 
that contains the character that is positioned higher in the collating 
sequence is considered to be the greater operand. 

2. Operands of unequal size - If the operands are of unequal size, 
comparison proceeds as though the shorter operand were extended- on the< 
right by sufficient spaces to make the operands of equal size. 


Class Condition 


The class condition determines whether the operand is numeric, that is 
consists entirely of the characters ’O', ’1», '2', ’3’, ..., ’9', with or 
without the operational sign, or alphabetic, that is, consists entirely of 
the characters 'A', 'B', 'C', .... 'Z', space. The general format for the 
class condition is as follows: 


identifier IS [NOT] 


NOT ] | 


NUMERIC 

ALPHABETIC 


The usa 8 e °f the operand being tested mus.t be described as displav. 
When used, NOT and the next key word specify one class condition that 
defines the class test to be executed for truth value; e.g. 'NOT NUMERIC' 
is a truth test for determining that an operand is nonnumeric. 

The NUMERIC test cannot be used with an item whose data description 
describes the item as alphabetic or as a group item composed of elementary 
iems whose data description indicates the presence of operational sign(s). 
f the data description of the item being tested does not indicate the 
presence of an operational sign, the item -being tested is determined to be 
numeric only if the contents are numeric and an operational sign is not 
present. If the data description of the Item does indicate the presence of 
an operational sign, the item being tested is determined to be numeric only 
COa , tea . t3 ara nu “ rlc and a val * d operational sign is present. Valid 

* ^ ±0n ^ ! lg j S , f ° r j 13 * 3 items desc ribed with the SIGN IS SEPARATE clause 
are the standard data format characters, '+' a^d 

ALj tf HA f ETIC test cannot be used with an item whose data description 

i ^ ^ numeric * The item being tested is determined to be 
alphabetic only if the contents consist of any combination of the alphabetic 
characters 'A' through 'Z' and the space. axpnaoetic 



Switch-Status Condition 

A switch-status condition determines the ’on’ or ’off* status of an 
implementor-defined switch. The implementor-name and the 'on* or 'off* 
value associated with the condition must be named in the SPECIAL-NAMES 
paragraph of the Environment Division. The general format for the 
switch-status condition is as follows: 

condition-name 

The result of the test is true if the switch is set to the specified 
position corresponding to the condition-name. 



COMMON PHRASES AND GENERAL RULES FOR STATEMENT FORMATS 

In the statement descriptions that follow, several phrases appear 
frequently: the ROUNDED phrase, the SIZE ERROR phrase. 

These are described below. A resultant-identifier is that identifier 
associated with a result of an arithmetic operation. 


The Rounded Phrase 


If, after decimal point alignment, the number of places in the fraction 
of the result of an arithmetic operation is greater than the number of 
places provided for the fraction of the resultant-identifier, truncation is 
relative to the size provided for the resultant-identifier. When rounding 
is requested the absolute value of the resultant-identifier is increased by 
one whenever the most significant digit of the the excess is greater than or 
equal to five. 

When the low-order integer positions in a resultant-identifier are 
represented by the character ’P' in the PICTURE for the 
resultant-identifier, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 


The Size Error Phrase 


If, after decimal point alignment, the absolute value of a result 
exceeds the largest value that can be contained in the associated 
resultant-identifier a size error condition exists. Division by zero always 
causes a size error condition. The size error condition applies only to the 
final results, except in MULTIPLY and DIVIDE statements, in which case the 
condition applies to the intermediate results as well. If the 
ROUNDED phrase is specified rounding takes place before checking for s£e 
When such a size error condition occurs, the subsequent action 
depends on whether or not the SIZE ERROR phrase is specified as follows: 


SIZE ERROR Phrase Not Specified 

When a sine error condition occurs, the value of those 
resultant-ldentifler(s) affected Is undefined. Values of 
resultant-ldentlfier(s) for which no sice error condition occurs are 

unaffected by sice errors that occur for other resultant-identifierCs) 
during execution of this operation. men^ier^s; 


SIZE ERROR Phrase Specified 

When a size. error condition occurs, then the valu« n f 
c^nl«tf" lde , nt ^ ier(S) aff6Cted the 9ize «e not altered After 
t^ SIZE ^OR m °" ** statement ^in 
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Arithmetic Statements 


The arithmetic statements are the ADD, DIVIDE, MULTIPLY, and SUBTRACT 
statements. Common features are as follows: 

1. The data descriptions of the operands need not be the same; any 
necessary conversion and decimal point alignment are supplied 
throughout the calculation. 

2. The maximum size of each operand is 18 decimal digits. The composite 
of operands, which is a hypothetical data item resulting from the 
superimposition of specified operands in a statement aligned on their 
decimal points (See THE ADD STATEMENT, THE DIVIDE STATEMENT, THE 
MULTIPLY STATEMENT and THE SUBTRACT STATEMENT later in this Chapter). 


Overlapping Operands 

When a sending and a receiving item in an arithmetic statement or an 
INSPECT, MOVE, SET, statement share a part of their storage areas, the 
result of the execution of such a statement is undefined. 


Incompatible Data 

Except for the class condition (See Class Condition in this Chapter), 
when the contents of a data item are referenced in the Procedure Division 
and the contents of that data item are not compatible with the class 
specified for that data item by its PICTURE clause, then the result of such 
a reference is undefined. 


CRT Devices 

The CRT is driven directly by the run time system via a buffer. The 
COBOL programmer moves data into and out of this buffer by means of ACCEPT 
and DISPLAY statements. Each ACCEPT or DISPLAY action is relative to the 
start of the CRT buffer unless POSITION is specified. The syntax is limited 
to inputting to or outputting .from a single.data name. The data name may be 
a group item and several such group items may redefine the same area of 
storage. 

The use of FILLER data items in record descriptions used for input or 
output to a CRT device is subject to special rules. On output, any FILLER 
item in a record results in suppression of output for the character 
positions it defines. On input, any FILLER item suppresses operator keying 
into the character positions it defines. 



THE ACCEPT STATEMENT 


Function 


The ACCEPT statement causes data keyed at the CRT console to be made 
available to the program in a specified data item 

General Formats 


Format 1 


ACCEPT identifier [FROM CONSOLE] 


Format 2 

ACCEPT data-name-1 



data-name 
literal-1 


-2 



FROM CRT 


General Rules 


1. Format 1 is the standard ANSI ACCEPT statement 
Format 2 is the extended ACCEPT format. 

The two formats are distinguished by their FROM phrases and the default 
assumes FROM CONSOLE. The default can, however, be changed by 
specifying CONSOLE IS CRT in the SPECIAL-NAMES clause so that FROM CRT 
becomes the default. This changed default is not shown in the syntax 
above. 

Format 1 

2. The ACCEPT statement reads one line of input data from the system 
console device. This input data replaces the contents of the data item 
named by the identifier. 

3. The line of input is line-edited according to the operating system 
rules for liner-editing (see Operating Systems User Guide). The line is 
terminated by pressing the CR (Carriage Return) key or by exceeding 120 
characters in length. 

4. If the input line is of the same size as the receiving data item, the 
transferred data is stored in the receiving data item. 

5. If the input line is not of the same size as the receiving data item, 
then: 

a. If the size of the receiving data item exceeds the size of the 
input line, the transferred data is stored aligned to the left in 
the receiving data item and the data item is filled with trailing 
spaces. 

b. If the size of the transferred data exceeds 120 bytes, only the 

120 characters of the input line are stored in the receiving 
data item. The remaining characters of the input line which do 
not fit into the receiving data item are ignored. 
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Format 2 


6. p The ACCEPT statement causes -the transfer of data from ' the CRT to 
.... data-name-1. The contents of data-name-1 are replaced by this data. 

7. > data-name-1 is taken as a definition of the screen area in which 
■f e eme ntary data items correspond to areas on the screen into which the 
^ operator can key. FILLER fields correspond to areas on the screen which 
i, are inaccessable to the operator. 

f 

8. Elementary data items within data-name-1 may be alphanumeric, integer 
^numeric, numeric or edited. Numeric items are treated as two separate 

integer numeric fields, and edited fields are treated as alphanumeric 
fields except as described in rule 16. 

9. AT data-name—2 or literal-1 defines the position on the screen of the 
leftmost character of the data. Either form must refer to a PIC 9999 
field. The most significant 99 is taken as a line count in the range 
one to the maximum lines on the user screen. The least significant 99 
is taken as a character position in the range one to the maximum 
positions allowed by the screen width of the user CRT. 


10. data-name-1 may refer to a record, group or elementary item, but it may 
not be subscripted. REDEFINES may be used within data-name-1, in which 
case the first description of the data is used and subsequent 
descriptions are ignored. OCCURS and nested OCCURS may also be used 

the effect that the repeated data-item is expanded into the full 
number of times it. occurs and one definition is thus automatically 
repeated for many fields. 

11. Immediately, upon execution of the ACCEPT statement a cursor is 
displayed in the CRT location corresponding to the leftmost non-FILLER 
character position in data-name-1. Alternatively, when CURSOR is 

i specified in the SPECIAL-NAMES paragraph, the cursor displays at the 

i. position held In the CURSOR data-name. The CURSOR position is stored 
in CURSOR data-name in the same format as the screen position is held 

j. In data-name-2. If the data-name-2 has the value SPACE or ZERO, the 

> fset is as if CURSOR was not specified. Data—name—2 holds the last 

—? I > s - or Position at the ,£nd of execution of an ACCEPT statement. 


12. [: If FROM CRT is not specified, the default is FROM CONSOLE (see rule 1 
f above). 

S '.V ■ ! . ' •“ ' ■ 

$ '• ’ ' ' ' 

13 * I ; As 1 he < °P era 11 ° r ke ys characters, the cursor moves to the right one 
j character position at a time in locations corresponding to data fields. 
L T^ e operator always keys into the current cursor position. At the end 
■ of a line the cursor moves down one line and to the leftmost non-FILLER 
; character position. 

14* If the data item is integer numeric, only numeric characters (0 — 9) 

> will be accepted into that item. Keying the decimal point character (. 
or., as specified in the DECIMAL POINT phrase) when accepting a numeric 
item causes the item to be right justified and zero—filled from the 


15. When the cursor location reaches a position corresponding to a FILLER 
item in a data-name, it immediately skips to the next non-FILLER 
!- character position, or if there is no such position remaining in the 
portion of the CRT specified by the data-name, it remains in its 
[ current position. 

!*"» -* -. (Addendum 1) 
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The operator can terminate input by pressing the CR (carriage return) 
key at which time control is passed to the next statement after ACCEPT. 
Before control is passed to the next statement the following takes 


The numeric value of each numeric-edited data-field is for: 
internally from only the keyed characters 0 to. i', +, . ox , , 

then moved back to the numeric-edited field with the ANSI PICT 
applied. The field may thus be different to that shown 
the CRT just before the Carriage Return key was pressed. 

When CURSOR IS is specified in the SPECIAL-NAMES paragraph, 
cursor position when the Carriage Return key is pressed 
returned in the data-name specified hv the tc 


NOTE 


FUNCTION 
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THE ADD STATEMENT 


Function 



The ADD statement causes two or more numeric operands to be summed and 
the result to be stored. 


General Format 


Format 1 



identifier-l\ identifier-2\ 

literal-1 ) \literal-2 / 


TO identifier-m [ROUNDED] 


* 


identifier-n 


[ROUNDED] 


[; ON SIZE ERROR imperative-statement] 


Format 2 



identifier-l 
literal-1 



identifier-2) 
literal-2 / 


identifier-3) 
literal-3 ) 


GIVING identifier-m [ ROUNDED ] j^, identifier-n [ ROUNDED ] 
[; ON SIZE ERROR imperative-statement] 



Syntax Rules 

1. In Formats 1 and 2, each identifier must refer to an elementary numeric 
item, except that in Format 2 each identifier following the word GIVING 
must refer to either an elementary numeric item or an elementary 
numeric edited item. 

,2. Each literal must be a numeric literal. .“'"N 

3. The composite of operands must not contain more than 18 digits (see The 
Arithmetic Statements in this Chapter). 

a. In Format 1 the composite of operands Is determined by using all 
of the operands in a given statement. 

b. In Format 2 the composite of operands is determined by using all 
of the operands In a given statement excluding the data items that 
follow the word GIVING. 


General Rules 


1. See THE ROUNDED PHRASE, THE SIZE ERROR PHRASE, THE ARITHMETIC 
STATEMENTS and OVERLAPPING OPERANDS in this Chapter. 
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If Format 1 is used, the values of the operands preceding the word TO 
are added together, then the sum is added to the current value of 
identifier-m storing the result immediately into identifier-m. 

If Format 2 is used, the value of the operands preceding the word 
GIVING are added together, then the sum is stored as the new value, of 
identifier-m, the resultant identifiers. 

The compiler ensures that enough places are carried so as not to lose 
any significant digits during execution. 



THE ALTER STATEMENT 


Function 

The ALTER statement modifies a predetermined sequence of operations. 



General Format 


ALTER procedure-name-1 TO. PROCEED TO procedure-name-2 


Syntax Rules 

1. Each procedure-name-1, is the name of a paragraph that contains a 
single sentence consisting of a GO TO statement without the DEPENDING 
phrase. 

2. Each procedure-name-2, is the name of a paragraph or section in the 
Procedure Division. 



General Rule 

Execution of the ALTER statement modifies the GO TO statement in the 
paragraph named procedure-name-1, so that subsequent executions of the 
modified GO TO statements cause transfer of control to procedure-name-2. 
Modified GO TO statements in independent segments may, under some 
circumstances, be returned to their initial states (see Independent Segments 
in Chapter 8). 



* 
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THE DISPLAY STATEMENT 
Function 


The DISPLAY statement causes data to be transferred from specified data 
items to the CRT screen. 


General Formats 


Format 1 

( identifier-1 ) 

( identifier-2 ) 


DISPLAY 

) i 

l literal-1 ^ 

■ 

[UPON CONSOLE! 


' literal-2 ) 

Format 2 





DISPLAY 

T'data—name— 1 1 

AT 

7 data—name—2 

r 

( CRT 7 

UPON J [ 


l literal-3 ) 

m. 

1 literal-4 


/ CRT-UNDER ) 


Syntax Rules 

1. Each literal may be any figurative constant, except ALL. 

2. If the literal is numeric, it must be an unsigned integer. 



General Rules 


1 . 


Format 1 is the standard ANSI DISPLAY statement. 
Format 2 is the extended DISPLAY format. 


The two formats are distinguished by their UPON phrases and the default 
assumes UPON CONSOLE. The default can, however, be changed by 
specxfyxng CONSOLE IS CRT in the SPECIAL-NAMES 0 ^ so that UPON CRT 
becomes the default. This changed default is not shown in the syntax 


Format 1 


2 . 

3 . 

4. 


The DISPLAY statement 
transferred to the CRT 


causes the contents 
in the order listed as 


of each operand to be 
one line of output data. 


The size of the data transfer can be up to 132 bytes. 


If a figurative 
single occurrence 


constant is specified as one of the operands, 
of the figurative constant is displayed. 


only a 





5. If the CRT is capable of displaying data of the same size as the data 
item being output, the data item is transferred. 

6. If the CRT is not capable of displaying data of the same size as the 
data item being transferred, one of the following applies. 

(a) If the size of the data item being displayed exceeds the size of 
the data that the CRT is capable of receiving in a single 
transfer, the data beginning with the leftmost character is stored 
aligned to the left in the receiving CRT. 

(b) If the size of the data item that the CRT is capable of receiving 
exceeds the size of the data being transferred, the transferred 
data is stored aligned to the left in the receiving CRT. 

7. When a DISPLAY statement contains more than one operand, the size of 
the sending item is the sum of the sizes associated with the operands, 
and the values of the operands are transferred in the sequence in which 
the operands are encountered. 


Format 2 



to ~the CRT in the screen! 


. _ 

9 . data—name—1 is taken as a definition of the screen area into which data] 
items that, correspond to areas on the screen are moved. FILLER fields^ 
correspond to areas an the screen into which data is not moved.. 

- -7 

■ ■ ■ • ■ 

10. Elementary data items within data-name-I may he alphanumeric, integer 
numeric, numeric or edited. 

t V -■ . • ■ 


11. AT data-name-Z or literal-4 defines the position on the screen of thej 
leftmost character of the data. Either form must refer to a PIC 9999j 
field. The most significant 99 is taken as a line count in the range’ 
one to the maximum number of lines on the user screen. The least! 
significant 99 Is taken as a character position in the range one to thej 
maximum of characters per,line on the user screen. 

12. data-name-L may refer to a record, group or elementary item, but it may] 
not be subscripted. REDEFINES may be used, in which case the first; 
description of the data is used, and subsequent descriptions are 
ignored. OCCURS and nested OCCURS may also be used with the effect that 
the repeated data—item is expanded into the full number of times it 
occurs and one definition is thus automatically repeated for many 
fields. 


13. DISPLAY SPACE has the effect of clearing the screen at run time (i.e. 
filling the whole screen with spaces). DISPLAY * * (one space 
character), however, displays only one space character. 

14. The CRT-UNDER phrase causes the elementary Items moved to the CRT to be 

displayed with the underline feature present. This feature isj 
dependent on the CRT hardware functions and is not available on all; 
makes of CRT (see the CIS COBOL Operating Guide) . _____ . j 
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(c: 


THE DIVIDE STATEMENT 


Function 

The DIVIDE statement divides one numeric data item into others and sets 
the values of data items equal to the quotient. 


General Format 
Format 1 

{literal-1'"‘I I™ 
j\ identifier-3j [ ROUNDED ] 

Format 2 

ssm { “r l } a { “r 2 } 

GIVING identifier-3 [ ROUNDED ] identifier-4 [ ROUNDED ] 
[;0N SIZE ERROR imperative-statement] 


identifier-2 [ ROUNDED ] 

[;0N SIZE ERROR imperative-statement] 


Format 3 




DIVIDE 


/ identifier- 
\ literal 


-r 1 } a { 


identifier-2 
literal-2 


} 


GIVING identifier-3 [ROUNDED ] [ , identifier-4 [ROUNDED ]j . 
[;0N SIZE ERROR imperative-statement] 

Syntax Rules 

1. Each identifier must refer to an elementary numeric item,, except that 
any identifier associated with the GIVING phrase must refer to either 
an elementary numeric item or an elementary numeric edited item. 

2. Each literal must be a numeric literal. 

General Rules 


1 . 


See The Rounded Phr ase. The Size Error Phrase. 

Overlappin g Operands in this Chafer fm- 
functions. 


The Arithmetic Statements 
a description of these 


2 . 


^ or ™ at 1 is used, the value of identifier-1 or literal-1 is 

SenSfier'-a) u fy. value of the dividend 

(.xaentixier 2; is replaced by this quotient. 
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3. When Format 2 is used, the value of identifier-1 or literal-1 is 

divided into identifier-2 or literal-2 and the result is stored in 

identifier-3. p 

4. When Format 3 is used, the value of identifier-1 or literal-1 is 

divided by the value of identifier-2 or literal-2 and the result is 

stored in identifier-3. 



ir 
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THE ENTER STATEMENT 


Function 

The ENTER statement provides a means of allowing the use of more than 
one language in the same program. 

General Format 

ENTER language-name [routine-name] 

Syntax Rule 

1 • ^Th-ia ' statem e nt ^s'"for ^o cinight at£on 'pft^p os es^bTlly ^ 

General Rule 

1. Access to other languages can be achieved by means of CALL. 
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THE EXIT STATEMENT 


Function 

The EXIT statement provides a common end point for a series of 
procedures. 

General Format 

EXIT 

SYNTAX RULES 

1. The EXIT statement must appear-In a sentence by itself. 

2. The EXIT sentence must be the only sentence in the paragraph. 

General Rule 


An EXIT statement serves only to enable the user to assign a 
procedure—name to a given point in a program. Such an EXIT statement 
has no other effect on the compilation or execution of the program. 



THE GO TO STATEMENT 


Function 

The GO TO statement causes control to be transferred from one part of 
the Procedure Division to another. 

General Format 

Format 1 

GO TO [procedure-name-1] 


Format-2 


GO TO procedure-name-1 [, procedure-name-2] 
DEPENDING ON identifier 


[» procedure-name-n] 


Syntax Rules 


1. Identifier is the name of a numeric elementary item described without 
any positions to the right of the assumed decimal point. 

2. When a paragraph is referenced by an ALTER statement, that paragraph 

can consist only of a paragraph header followed by a Format 1 GO TO 
statement. 


3. If a GO TO statement represented by Format 1 appears in a consecutive 
sequence of imperative statements within a sentence, it appears as the 
last statement in that sequence. 


General Rules 



When a GO TO statement, represented by Format 1 is executed, control is 
ransferred to procedure-name-1 or to another procedure-name if the GO 
TO statement has been modified by an ALTER statement. 


2 . 


When a GO TO statement represented by Format 2 is 
transferred to procedure-name-1, procedure-name-2 
the value of the identifier being 1, 2, ..., n. 
identifier Is anything other than the positive or 
2, ..., n, then no transfer occurs and control 

statement in the normal sequence for execution. 


executed, control is 
, etc., depending on 
If the value of the 
unsigned integers 1, 
passes to the next 
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THE IE STATEMENT 


Function 


The IF statement causes a condition (see CONDITIONAL EXPRESSIONS in 
this Chapter). The subsequent action of the object program depends on 
whether the value of the condition is true or false. 


General Format 


IF condition; 


s tat erne nt-1 
NEXT SENTENCE 


} {; 


ELSE statement-2 
ELSE NEXT SENTENCE 


Syntax Rules 

1. Statement-1 and statement-2 represent either an imperative statement or 
a conditional statement, and either may be followed by a conditional 
statement. 

2. The ELSE NEXT SENTENCE phrase may be omitted if it immediately precedes 
the terminal period of the sentence. 


General Rules 

1. When an IF statement is executed, the following transfers of control 

occur: 

a. If the condition is true, statement-1 is executed if specified. If 
statement-1 contains a procedure branching or conditional 
statement, control is explicitly transferred in accordance with 
the rules of that statement. If statement-1 does not contain a 
procedure branching or conditional statement, the ELSE phrase, if 
specified, is ignored and control passes to the next executable 
sentence. 

b. If the condition is true and the NEXT SENTENCE phrase is specified 
instead of statement-1, the ELSE phrase, if specified, is ignored 
and control passes to the next executable sentence. 

c. If the condition is false, statement-1 or its surrogate NEXT 
SENTENCE is ignored, and statfement-2, if specified, is executed. 
If statement-2 contains a procedure branching or conditional 
statement, control is explicitly transferred in accordance with 
the rules of that statement. If statement-2 does not contain a 
procedure branching or conditional statement, control passes to 
the next executable sentence. If the ELSE statement—2 phrase is 
not specified, statement-1 is ignored and control passes to the 
next executable sentence. 

d. If the condition is false, and the ELSE NEXT SENTENCE phrase is 
specified, statement-1 is ignored, if specified, and control 
passes to the next executable sentence. 



2. Statement-1 and/or statement-2 may contain an IF statement. In this 
case the IF statement is said to be nested. 

IF statements within IF statements may be considered as paired IF and 
ELSE combinations, proceeding from left to right. Thus, any ELSE 
encountered is considered to apply to the immediately preceding IF that has 
not been already paired with an ELSE. 




/ 
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THE INSPECT STATEMENT 


Function 

The INSPECT statement provides the ability to tally (Format I), replace 
(Format 2), or tally and replace (Format 3) occurrences of single characters 
in a data item. 


General Format 


Format I 

INSPECT identifier-1 TALLYING 


ALL 


, identifier-2 FOR , j 

' CHARACTERS 


r { BEFORE ) T^TTn^T. t / identifier-7 \ 
| AFTER - ) INITIAL 1 literal-5 ( 

__ O 


Format 2 
INSPECT 


identifier-1 REPLACING 


_ TT if—* j identifier—6 \ 

CHARACTERS BY | literal _4 j 


( identifier-6) 


>j|™} . {u“ra“r 3 } 3. \ literal-4 f 

f FIRST ; v v 


7 BEFORE ) 
1 AFTER j 


{uSS-5 r ’ 7 }' 


Format 3 


orjna 


INSPECT identifier-1 TALLYING 




) 


Qh ) (identifier-3) (BEFORE) _ (identifier-4\ 

» identifier-2 FOR , \ ^g -| E RS |{literal-l } {AFTER } W ^ { literal-2 J 


REPLACING 

(identifier-6) 
CBA^CTEag . BY { Uteral ^ f 


jiibisG} . |^! ntl ft r ' 5 } H 

(111-) t literal-3 I — 


( identifier-6 
(literal-4 


il 


~( BEFORE ) TNITIAL f identifier-7' 
) AFTER / INITIAL ) literal-5 


• O: 
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Syntax Rules 

All Formats 

1. Identifier—1 must reference either a group item or any category of 
elementary item, described (either explicitly or explicitly) as usage 
is DISPLAY. 

2. Identifier-3 ... identifier-n must reference either an elementary 
alphabetic, alphanumeric or numeric item described (either implicitly 
or explicitly) as usage is DISPLAY. 

3. Each literal must be nonnumeric and may be any figurative constant, 
except ALL. 

4. In Level 1, literal-1, literal-2, literal-3, literal-4, and literal-5, 

and the data items referenced by identifier-3, identifier-4, 

identifier—5, identifier—6, and identifier—7 must be one character in 

' length. 

Formats 1 and 3 Only 

5. Identifier-2 must reference an elementary numeric data item. 

either literal-1 or literal-2 is a figurative constant, the 
figurative constant refers to an implicit one character data item. 

Formats 2 and 3 Only 

7. The size of the data referenced by literal-4 or identifier-6 must be 
equal to the size of the data referenced by literal-3 or identifier-5. 
When a figurative constant is used as literal-4, the size of the 
figurative constant is equal to the size of literal-3, or the size of 
the data item referenced by identifier-5; 

8. When the CHARACTERS phrase is used, literal-4, literal-5, or the size 
of the data Item referenced by identifier-6, identifier-7 must be one 
character' in length. 

9. When a figurative constant is used as literal-3, the data referenced by 
lil era l~4 or identifier—6 must be one character in length. 

General Rules 

All Formats 


1 . 


2 . 


Inspection (which includes the comparison cycle, the establishment of 
boundaries for the BEFORE or AFTER phrase, and the mechanism for 
allying and/or replacing) begins at the leftmost character nosition of 
the data item referenced by identifier-1, regardless of its'class, and 
proceeds from left to right to the rightmost character position as 
described in general rules 4 through 6. 


For use in the INSPECT statement, the contents of the data item 
refer-enced by identifier-1, identifier-3, identifier-4, identifier-5 
identifier-6 or identifier-7 will be treated as follows: 
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a. If any of identifier-I, identifier-3, identifier-4, identifier-5, 
identifier-6 or identifier-7 are described as alphanumeric, the 

INSPECT statement treats the contents of each such identifier as a 
character-string. 

b. If any of identifier-1, identifier-3, identifier-4, identifier-5, 
identifier-6 or identifier—7 are described as alphanumeric edited, 
numeric edited or unsigned numeric, the data item is inspected as 
though it had been redefined as alphanumeric (see general rule 2a) 
and the INSPECT statement had been written to reference the 
redefined data item. 

c. If any of the identifier-1, identifier-3, identifier-4, 
identifier—5, identifier—6 or identifier—7 are described as signed 
numeric, the data item is inspected as though it had been moved to 
an unsigned numeric data item of the same length and then the 
rules in general rule 2b had been applied. (See THE MOVE STATEMENT 
later in this Chapter). 

In general rules 4 through 11 all references to literal-1, literal-2, 
literal-3, literal-4, and literal-5 apply equally to the contents of 
the data item referenced by identifier-3, identifier-4, identifier-5, 
identifier—6, and identifier—7, respectively. 

During inspection of the contents of the data item referenced by 
identifier-1, each properly matched occurrence of literal-1 is tallied 
(Formats 1 and 3) and/or each properly matched occurrence of literal—3 
is replaced by literal-4 (Formats 2 and 3). 

Data items to be referenced by the INSPECT verb should be placed such I 
that they lie within the first TO,000 bytes of intermediate code. 

The comparison operation to determine the occurrences of literal-1 to 
be tallied and/or occurrences of literal-3 to be replaced, occurs as 
follows: 

a. The operands of the TALLYING and REPLACING phrases are considered 
in the order they are specified in the INSPECT statement from left 
to right. The first literal-1, literal-3 is compared to an equal 
number of contiguous characters, starting with the leftmost 
character position in the data item referenced by identifier-1. 
Literal-1, literal-3 and that portion of the contents of the data 
item referenced by identifier-1 match if, and only if, they are 
equal, character for character. 

b. If no match occurs in the comparison of the first literal-1, 

literal-3, the comparison is repeated with each successive 
literal-1, literal-3, if any, until either a match is found or 
there is no next successive literal-1, literal-3. When there is 
no next successive literal-1, literal-3, the char-acter position 

in the data item referenced by identifier-1 immediately to the 

right of the leftmost character position considered in the last 
comparison cycle is considered as the leftmost character position, 
and the comparison cycle begins again with the first literal-1, 
literal-3. 

c. Whenever a match occurs, tallying and/or replacing takes place as 

described in general rules 8 through 10. The character position 
in the data item referenced by identifier-1 immediately to the 

right of the rightmost character position that participated in the 

(addendum i) 
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match is now considered to be the leftmost character position of 
the data item referenced by identifier-1, and the comparison cycle 
starts again with the first literal-1, literal-3. 

d. The comparison operation continues until the rightmost character 
position of the data item referenced by identifier-1 has 
participated in a match or has been considered as the leftmost 
character position. When this occurs, inspection is terminated. 

e. If the CHARACTERS phrase is specified, an implied one character 
operand participates in the cycle described in paragraphs 5a 
through 5d above, except that no comparison to the contents of the 
data item referenced by identifier-1 takes place. This implied 
character is considered always to match the leftmost character of 
the contents of the data item referenced by identifier-1 
participating in the current comparison cycle. 

6. The comparison operation defined in general rule 5 is affected by the 

BEFORE and AFTER phrases as follows: 

a. If the BEFORE or AFTER phrase is not specified, literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase 
participates in the comparison operation as described in general 
rule 5. 


b. If the BEFORE phrase is specified, the associated literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase 
participates only in those comparison cycles which involve that 
portion of the contents of the data item referenced by 
identifier-1 from its leftmost character position up to, but not 
including, the first occurrence of literal-2, literal-5 within the 
contents of the data item referenced by identifier—1. The 
position of this first occurrence is determined before the first 
cycle of the comparison opera-tion described in general rule 5 Is 
begun. If, on any comparison cycle, literal-1, literal-3 or the 
implied operand of the CHARACTERS phrase is not eligible to 
participate, it is considered not to match the contents of the 
data item referenced by identifier-1. If there is no occurrence 
of literal-2 literal-5 within the contents of the data item 
referenced by identifier-1, its associated literal-1, literal-3, 
or the implied operand of the CHARACTERS phrase participates ii 
the comparison operation as though the BEFORE phrase had not been 
specified. 


c. 


If the AFTER phrase is specified, the associated literal-1, 
literal-3 or the implied operand of the CHARACTERS phrase may 
participate only in those comparison cycles which involve that 

° f , r thS ^ ontents of the data item referenced by 
Identifier-l from the character position immediately to the right 
of the rightmost character position of the first occurrence of 
literal-2, literal-5 within the contents of the data item 
referenced by iden-tifier-1 and the rightmost character position 
of the data item referenced by identifier-1. The position of this 
first occurrence is determined before the first cycle of the 
comparison operation described in general rule 5 Is begun. If on 
any comparison cycle, literal-1, literal-3 or the implied operand 
of the CHARACTERS phrase is not eligible to participate, ? it is 
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considered not to match the contents of the data item referenced 
by identifier-L. If there is no occurrence of literal-2, 
literal-5 within the contents of the data item referenced by 
identifier-1, its associated literal-1, literal-3, or the implied 
operand of the CHARACTERS phrase is never eligible to participate 
in the comparison operation. 


Format 1 

7. The contents of the data item referenced by identifier-2 is not 

initialized by the execution of the INSPECT statement. 

8. The rules for tallying are as follows: 

a. If the ALL phrase is specified, the contents of the data item 

referenced by identifier-2 is incremented by one for each 

occurrence of literal-1 matched within the contents of the data 
item referenced by identifier-1. 

b. If the LEADING phrase Is specified, the contents of the data item 

referenced by identifier-2 is incremented by one for each 

contiguous occurrence of literal-1 matched within the contents of 
the data item refer-enced by identifier-1, provided that the 

leftmost such occurrence is at the point where comparison began in 
the first comparison cycle in which literal-1 was eligible to 
participate. 

c. If the CHARACTERS phrase is specified, the contents of the data 
item referenced by identifier-2 is incremented by one for each 
character matched, in the sense of general rule 5e, within the 
contents of the data item referenced by identifier-1. 

Format 2 

9. The required words ALL, LEADING, and FIRST are adjectives. 

10. The rules for replacement are as follows: 

a. When the CHARACTERS phrase is specified, each character matched; 
in the sense of general rule 5e, in the contents of the data item 
referenced by identifier—1 is replaced by literal—4. 

b. When the adjective ALL is specified, each occurrence of literal-3 

matched in the contents of the data item referenced by 

identifier-1 is replaced by literal-4. 

c. When the adjuective LEADING is specified, each contiguous 

occurrence of literal—3 matched in the contents of the data item 
referenced by identifier-1 is replaced by literal-4, provided that 
the leftmost occurrence is at the point where comparison began in 
the first comparison cycle in which literal-3 was eligible to 

participate. 

d. When the adjective FIRST is specified, the leftmost occurrence of 
literal-3 matched within the contents of the data item referenced 
by identifier-1 is replaced, by literal-4. 
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Format 3 


11. A Format 3 INSPECT statement is interpreted and executed as though two 
successive INSPECT statements specifying the same identifier-1 had been 
written with one statement being a Format 1 statement with TALLYING 
phrases identical to those specified in the Format 3 statement, and the 
other statement being a Format 1 statement with REPLACING?" phrases 
identical to those specified in the Format 3 statement. The general 
rules given for matching and counting apply to the Format 1 statement 
and the general rules given for matching and replacing apply to the 
Format 2 statement. 

EXAMPLES 

Six examples of the use of the INSPECT statement follow: 

INSPECT word TALLYING count FOR LEADING "L" BEFORE INITIAL "A", count-1 FOR 
LEADING "A" BEFORE INITIAL "L". 

Where word = LARGE, count - 1, count-1 * 0.* 

Where word m ANALYST, count « 0, count—1 ■» 1. 


INSPECT word TALLYING count FOR ALL "L", REPLACING LEADING "A” BY "E" AFTER 
INITIAL "L". 

Where word » CALLAR, count =* 2, word * CALLAR. 

Where word = SALAMI, count * 1, word - SAL EMI. 

Where word * LATTER, count =■ 1, word - LETTER. 


INSPECT word REPLACING ALL "A" BY "G" BEFORE INITIAL "X". 

Where word = ARXAX, word - GRXAX. 

Where word =■ HAND AX, word = HGNDGX. 


S?S P ?S T ..^? rd TALLYING count F0R CHARACTERS AFTER INITIAL "J" REPLACING ALL 


Where word - ADJECTIVE, count - 6, word ** BDJECTIVE. 
Where word » JACK, count - 3, word - JBCK. 

Where word » JUJMAB, count - 5, word - JUJMBB. 


INSPECT word REPLACING ALL 'V BY "Y", "B" BY "Z", "W" BY "Q" AFTER INITIAL 

K • 

Where word * RXXBQWY, word - RYYZQQY. 

Where word - Y2ACDWBR, word =* YZACDWZR. 

Where word » RAWRXEB, word - RAQRYEZ. 


INSPECT word REPLACING CHARACTERS BY "B" BEFORE INITIAL "A". 

word before: 12 X Z A B C D 
word after: BBBBBABCD 
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THE MOVE STATEMENT 


Function 

The MOVE statement transfers data, in accordance with the rules of 
editing, to one or more data areas. 


General Format 


Format 1 


MOVE 


identifier- 
literal 


TO 


identifier-2 


[• 


identifier 1 


-3] ... 


Syntax Rules 


1 . 


Identifier-1 and literal represent the sending area; identifier-2, 
identifier-3, ..., represent the receiving area. 



2. An index data item cannot appear as an operand of a MOVE statement. 
(See THE USAGE CLAUSE in this Chapter). 


General Rules 

1. The data designated by the literal or identifier-1 is moved first to 
identifier-2, then to identifier-3, ... . The rules referring to 

identifier-2 also apply to the other receiving areas. Any subscripting 
or indexing associated with identifier-2, ..., is evaluated immediately 
before the data is moved to the respective data Item. 

Any subscripting or indexing associated with identifier-1 is evaluated 
only once, immediately before data is moved to the first of the 
receiving operands. The result of the statement: 

MOVE a (b) TO b, c (b) W j 

is equivalent to: 

MOVE a (b) TO temp 
MOVE temp TO b 
MOVE temp TO c (b) 

where 'temp' is an intermediate result item provided by the 
implementor. 
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2. Any MOVE in which the sending and receiving items are both elementary 
items is an elementary move. Every elementary item belongs to one of 
the following categories: numeric, alphabetic, alphanumeric, numeric 
edited, alphanumeric edited. These categories are described in the 
PICTURE clause. Numeric literals belong to the category numeric, and 
nonnumeric literals belongs to the category alphanumeric. The 
figurative constant ZERO belongs to the category numeric. The 
figurative constant SPACE belongs to the category alphabetic. All 
other figurative constants belong to the category alphanumeric. 

The following rules apply to an elementary move between these 
categories: 

a. The figurative constant SPACE, alphanumeric edited, or alphabetic 
data item must not be moved to a numeric or numeric edited data 
item. 

b. A numeric literal, the figurative constant ZERO, a numeric data 
item or a numeric edited data item must not be moved to an 
alphabetic data item. 

c. A non-integer numeric literal or a non-integer numeric data item 
must not be moved to an alphanumeric or alphanumeric edited data 
item. 

d* If a numeric edited field that is blank is moved to a numeric 
field the.result will be unpredictable. 

e. All other elementary moves are legal and are performed according 
to the rules given in general rule 4. 

4 

3. Any necessary conversion of data from one form of internal 
representation to another takes place during legal elementary moves, 
along with any editing specified for the receiving data item: 

a. When an alphanumeric edited or alphanumeric item is a receiving 
item, alignment and any necessary space filling takes place as 
defined under STANDARD ALIGNMENT RULES in this Chapter,, If the 
size of the sending item is greater than the size of the receiving 
item, the excess characters are truncated on the right after the 
receiving item is filled. If the sending item is described as 
being signed numeric, the operational sign will not be moved; if 
the operational sign occupies a separate character position (see 
THE SIGN CLAUSE In this Chapter), that character will not be moved 
and the size of the sending item will be considered to be one less 
than its actual size (in terms of standard data format 
characters). 

b. When a numeric or numeric edited item is the receiving item, 
alignment by decimal point and any necessary zero-filling takes 
place as defined under the STANDARD ALIGNMENT RULES in Chapter 2, 
except where zeroes are replaced because of editing requirements! 

When a signed numeric item is the receiving item, the sign of the 
sending item is placed in the receiving item. (See THE 
SIGN CLAUSE in this Chapter). Conversion of the representation of 
the. sign takes place as neces-sary. If the sending item is 
unsigned, a positive sign is generated for the receiving item. 


o — oo 
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When an unsigned numeric item is the receiving item, the absolute 
value of the sending item is moved and no operational sign is 
generated for the receiving item. 


When a data item described as alphanumeric is the sending item, 

data is moved as if the sending item were described as an unsigned 
numeric integer. 

c. When a receiving field is described as alphabetic, justification 
and any necessary space—filling takes place as defined under the 
STANDARD ALIGNMENT RULES in Chapter 2. If the size of the sending 
item is greater than the size of the receiving item, the excess 
characters are truncated on the right after the receiving item is 
filled. 

Any move that is not an elementary move is treated exactly as if it 
were an alphanumeric to alphanumeric elementary move, except that there 
is no conversion of data from one form of internal representation to 
another. In such a move, the receiving area will be filled without 
consideration for the individual elementary or group items contained 
within either the sending or receiving area, except as noted in general 
rule 4 of the OCCURS clause. 

Data in Table 3-6 summarizes the legality of the various types of MOVE 
statements. The general rule reference indicates the rule that 
prohibits the move or the behavior of a legal move. 


Table 3—6. MOVE Statement Data Categories. 


Category of Sending 
Data Item 

Category Of Receiving Data Item^ 

Alphabetic 

Alp hanume ric 
Edited 

Alphanumeric 

Numeric Integer 
Numeric Non-Integer 
Numeric Edited 

ALPHABETIC 

Yes/3c 

Yes/3a 

No/2a 

ALPHANUMERIC 

Yes/3c 

Yes/3a 

Yes/3b 

ALPHANUMERIC EDITED 

Yes/3c 

Yes/3a 

No/2a 

NUMERIC 

INTEGER 

No/2b 

Yes/3a 

Yes/3b 

NON-INTEGER 

No/2b 

No/2c 

Yes/3b 

NUMERIC EDITED 

No/2b 

Yes/3a 

Yes/2a 

1 - The relevant ru! 

.e number is quoted in these columns 




THE MULTIPLY STATEMENT 


Function 

The MULTIPLY statement causes numeric data items to be multiplied and 
sets the values of data items equal to the results. 


General Format 
Format 1 

MULTIPLY BY identifier-2 [ ROUNDED ] 

identifier-3 [ ROUNDED ]J ... [; ON SIZE ERROR imperative-statement] 

Format 2 

M U LTIPLY BY {^eril-2 r ~ 2 } — T - VING identifier-3 [ ROUNDED ] 


9 


identifier-4 [ROUNDED] 


J 


[; ON SIZE ERROR imperative-statement] 


Syntax Rules 


Each identifier must refer to a numeric elementary item, except that in 
Format 2 each identifier following the word GIVING must refer to either 
an elementary numeric item or an elementary numeric edited item. 

Each literal must be a numeric literal. 


General Rules 


1. See The ROUNDED Phrase, The SIZE ERROR Phrase, The Arithmetic 
Statements, and Overlapping Operands in this Chapter. 

2. When Format 1 is used, the value of identifier-1 or literal-1 is 

^ I** Value ° f identi fier-2. The value of the multiplier 
(identifier-2) is replaced by this product; similarly for identifier-1 
or literal-1 and identifier-3, etc. 

3 ‘ 2 ,. ls used ’ the value of identifier-1 or literal-1 is 

muitiplied by identifier-2 or literal-2 and the result is stored in 
identifier-3, identifier-4, etc. 
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THE PERFORM STATEMENT 


Function 

The PERFORM statement is used to transfer control explicitly to one or 
more procedures and to return control implicitly whenever execution of the 
specified procedure is complete. 

General Format 


Format 1 


PERFORM procedure-name-1 


THROUGH ) 
THRU / 


procedure-name-2 


Format 2 


PERFORM procedure-name 


-{{ 


THROU GH) 
THRU 


j. procedure-name-2 J j integer 


"j / identif ier-lj 


TIME? 


Format 3 


PERFORM procedure-name-lj 


THROUGH ) 
THRU / 


procedure-name' 


-2 


UNTIL condition-1 


Syntax Rules 

1. Each identifier represents a numeric elementary item described in the 
Data Division. In Format 2, identifier-1 must be described as a 
numeric integer. 


2 . 


3. 


The words THRU and THROUGH are equivalent. 


Where procedure—name—1 and procedure—name—2 are both specified and 
either is the name of a procedure in the declarative section of the 
program then both must be procedure-names in the same declarative 
section. 



General Rules 

1. When the PERFORM statement is executed, control is transferred to the 
first statement of the procedure named procedure-name-1 (except as 
indicated in general rules 4b, 4c, and 4d). This transfer of control 
occurs only once for each execution of a PERFORM statement. For those 
cases where a transfer of control to the named procedure does take 
place, an implicit transfer of control to the next executable statement 
following the PERFORM statement is established as follows: 

a. If procedure-name-1 is a paragraph-name and procedure-name-2 is 
not specified, then the return is after the last statement of 
procedure-name—1. 
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b. If procedure—name—1 is a section—name and procedure—name—2 is not 
specified, then the return is after the last statement of the last 
paragraph In procedure-name-1. 

c. If procedure—name—2 is specified and it is a paragraph—name, then 

the return is after the last statement of the paragraph. 

d. If procedure-name-2 is specified and it is a section-name, then 

the return is after the last statement of the last paragraph In 
the section. 

There is no necessary relationship between procedure-name-1 and 
procedure-name-2 except that a consecutive sequence of operations is to 
be executed beginning at the procedure named procedure—name—1 and 
ending with the execution of the procedure named procedure-name-2. In 
particular, GO TO and PERFORM statements may occur between 
procedure-name-1 and the end of procedure-name-2. If there are two or 
more logical paths to the return point, then procedure—name—2 may be 
the name of a paragraph consisting of the EXIT statement, to which all 
of these paths must lead. 

If control passes to these procedures other than via a PERFORM 
statement the procedures are executed right through to the next 
executable statement in the main program as if they were just part of 
the main program. 

The PERFORM statements operate as follows with rule 3 above applying to 
all formats: 

a. Format 1 is the basic PERFORM statement. A procedure referenced 
by this type of PERFORM statement is executed once and then 
control passes to the next executable statement following the 
PERFORM statement. 

b. Format 2 is the PERFORM...TIMES. The procedures are performed the 
number of times specified by integer-1 or by the initial value of 
the data item referenced by identifler-1 for that execution. If, 
at the time of execution of a PERFORM statement, the value of the 
data item referenced by identifier-1 is equal to zero or is 
negative, control passes to the next executable statement 
following the PERFORM statement. Following the execution of the 
procedures the specified number of times, control Is transferred 
to the next executable statement following the PERFORM statement. 

During execution of the PERFORM statement, references to identi— 
^^■ er— 1 cannot alter the number of times the procedures are to be 
executed from that which was indicated by the initial value of 
identifier-1. 

c. Format 3 is the PERFORM...UNTIL. The specified procedures are 
performed until the condition specified by the UNTIL phrase is 
true. When the condition Is true, control , is transferred, to the 
next executable statement after the PERFORM statement. If the 
condition is true when the PERFORM statement is entered, no 
transfer to procedure-name-1 takes place, and control Is passed to 
the next executable statement following the PERFORM statement. 
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If \ Seq ™ QCe ° f sta tements referred to by a PERFORM statement includes 
another PERFORM statement, the sequence of procedures associated with 
the included PERFORM must itself either be totally included in, or 
totally excluded from, the logical sequence referred to by the first 
PERFORM. Thus, an active PERFORM statement, whose execution point 
begins within the range of another active PERFORM statement, must not 
allow control to pass to the exit of the other active PERFORM 
statement; furthermore, two or more such active PERFORM statements may 
not have a common exit. See Figure 3-1. 


PERFORM a THRU m 


PERFORM a THRU m 


d PERFORM f THRU j 


d PERFORM f THRU j 




x PERFORM a THRU m 



d PERFORM f THRU j 
Fig. 3—1. PERFORM Statement in Sequence. 


A PERFORM statement that appears in a section that is not an 
independent segment can have within its range, in addition to any 
declarative sections whose execution is caused within that range, only 
one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
non-independent segments. 

b. Sections and/or paragraphs wholly contained in a single 
independent segment. 
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7. 


A PERFORM statement that appears in an independent segment can have 
within its range, in addition to any declarative sections whose 
execution is caused within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
non-independent segments. 

b. Sections and/or paragraphs wholly contained in the. same 
independent segment as that PERFORM statement. 

8. PERFORM statements must not be nested to greater than 22 levels. 


(Addendum 1) 
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THE STOP STATEMENT 

) 

Function 


The STOP statement causes a permanent or temporary suspension of the 
execution of the object program. 


General Format 


STOP 


RUN 

literal 


Syntax Rules 

1. The literal may be numeric or non-numeric or may be any figurative 
constant, except ALL. 

2. If the literal is numeric, then it must be an unsigned integer. 

3. If a STOP RUN statement appears in a consecutive sequence of imperative 
statements within a sentence, it must appear as the last statement in 
that sequence. 



General Rules 

1. If the RUN phrase is used,- then the operating system ending procedure 
is instituted. 

^ STOP literal is specified, the literal is communicated to the 
operator. Continuation of the object program begins with the execution 
of the next executable statement in sequence. 



~y 
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THE SUBTRACT STATEMENT 


Function 


The SUBTRACT statement is used to subtract one, or the sum of two or 
more, numeric data items from one or more items, and set the values of one 
or more items equal to the results. 


General Format 


Format 1 


SUBTRACT -f identifier-1 
- I literal-1 


, (identif ier-2 ) 
(literal-2 f *** 


FROM 


( t 

KJ 

Format 2 


identifier-m [ROUNDED] 


identifier-n 


[; ON SIZE ERROR imperative-statement] 


[ROUNDED] 


SUBTRACT 

(identifier-1 \ 

,(identifier-21 

... FROM identifier-m 

( literal-1 / 

(literal-2 j 

GIVING 

identifier-n 

[ROUNDED] f. 

identifier-o [ROUNDED] 

[; ON _ 

t— 

SIZE ERROR imperative-statpmpnr] 



Syntax Rules 


(G 


3. 


F 0 ™*f ld 9 lf J Tf !^ fer t0 3 numeric elementary item except-that in 
Format 2, each identifier following the word GIVING must ra*er to 
either an elementary numeric item or an elementary numeric edited item 


2. Each literal must be a numeric literal. 


The composite of operands must not contain more than 18 digits. 
.The Arit hmetic Statements in this Chapter). 


(See 


a. 


In Format 1 the composite of operands is determined by 
of the operands in a given statement. 


using all 


b. 


In Format 2 the composite 
of the operands in a given 
follow the word GIVING. 


of operands is determined by using all 
statement excluding the data items that 
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GENERAL RULES 


1. See The Rounded Phrase , The Size Error Phrase , The Arithmetic Statement 
and Overlapping Operands in this Chapter. 

2. In Format 1, all literals or identifiers preceding the word FROM are 

added together and this total is subtracted from the current value of 
identifier-m storing the result immediately into identifier-m, and 
repeating this process respectively for each operand following the word 
FROM. 

3. In Format 2, all literals or identifiers preceding the word FROM are 

added together, the sum is subtracted from literal-m or identifier-m 
and the result of the subtraction is stored as the new value of 

identifier-n, identifier-n, etc. 

4. The compiler ensures enough places are carried so as not to lose 

significant digits during execution. 



CHAPTER 4 


TABLE HANDLING 


INTRODUCTION TO THE TABLE HANDLING MODULE 

The Table Handling module provides a capability for defining tables of 
contiguous data items and accessing an item relative to its position in the 
table. Language facilities are provided for specifying how many times an 
item is to be repeated. Each item may be identified through use of a 
subscript or an index (see Chapter 2). 

Table Handling provides a capability for accessing items in variable 
length tables of multiple di m ensions. The maximum number of multiple 
dimensions if the ANS switch is on (see Chapter 2) is restricted to three. 


DATA DIVISION IN THE TABLE HANDLING MODULE 


(<£ THE OCCURS CLAUSE 
Function 


The OCCURS clause eliminates the need for separate entries for repeated 
data items and supplies information required for the application of 
subscripts or indices. 


General Format 


OCCURS integer-2 TIMES 

[ INDEXED BY Index—name—1 [, index—name—2] 


Syntax Rules 

«r 

1. An INDEXED BY phrase Is required if the subject of this entry, or an 
entry subordinate to this entry, is to be referred to by indexing. The 
index-name identified by this clause is not defined elsewhere since its 
allocation and format are dependent on the hardware, and not being 
data, cannot be associated with any data hierarchy. 


2 . 

3. 


The OCCURS clause cannot be specified in a data description entrv 
has 01 or 77 level-number (if AKS directive has,been set). 


that 


Index-name-1, Index-name-2, 
program. 


must be unique words within the 
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The OCCURS clause is used in defining tables and other homogenous sets 
of repeated data items. Whenever the OCCURS clause is used, the 
data-name which is the subject of this entry must be either subscripted 
or indexed whenever it is referred to in a statement other than USE FOR 
DEBUGGING. Further, if the subject of this entry is the name of a 
group Item, then all data-names belonging to the •,group must be 
subscripted or indexed whenever they are used as operands, except as 
the object of a REDEFINES clause. (See under headings Subscripting, 
Indexing and Identifier in Chapter 2). 

Except for the OCCURS clause itself, all data description clauses 
associated with an item whose description includes an OCCURS clause 
apply to each occurrence of the item described. (See restriction in 
general rule 2 under Data Description Entries Other Than Condition 
Names in Chapter 3). 

The number of occurrences of the subject entry is defined as the value 
of integer-2 representing the exact number of occurrences. 



THE USAGE CLAUSE 


Function 


The USAGE clause specifies the format of a data item in the computer 

storage. 

General Format 

[ USAGE IS] INDEX 

Syntax Rules 

1. An index data item can be referenced explicitly only in a SET 
statement, a relation condition, the USING phrase of a Procedure 
Division header, or the USING phrase of a CALL statement. 

2. The SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE and BLANK WHEN ZERO clauses 
cannot be used to describe group or elementary items described with the 
USAGE IS INDEX clause. 

General R.ules 


1. The USAGE clause can be written at any level. If the USAGE clause is 
written at a group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group to which the item belongs. 

2. An elementary item described with the USAGE IS INDEX clause is called 
an index data item and contains a value which must correspond to an 
occurrence number of a table element. The elementary item cannot be a 
conditional variable. The compiler will allocate a 2 byte binary field. 
If a group item is described with the USAGE IS INDEX clause the 
elementary items in the group are all index data items. The group 
itself is not an index data item and cannot be used in the SET 
statement or in a relation condition. 

3. An index data item can be part of a group which is referred to in a 

MOVE or input-output statement, in which case no conversion will take 
place. 
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PROCEDURE DIVISION IN THE TABLE HANDLING MODULE 


RELATION CONDITION 

Comparisons Involving Index-Names And/or Index Data Items 

Relation tests may be made between the following data items: 

* Two index-names. The result is the same as if the corresponding 
occurrence numbers were compared. 

* An index-name and a data item (other than an index data item) or 
literal. The occurrence number that corresponds to the value of 
the index-name compared to the data item or literal. 

* An index data item and an index-name or another index data item. 
The actual values are compared without conversion. 

* The result of the comparison of an index data item with any data 
item or literal not specified above is undefined. 

OVERLAPPING OPERANDS 

When a sending and a receiving item in a SET statement share a part of 
their storage areas, the result of the execution of such a statement is 
undefined. 


THE SET STATEMENT 
Function 


The SET statement establishes reference points for table handling 
operations by setting index-names associated with table elements. 


General Format 


Format 1 



SET 


|identifier-1 

[, 

identifier-2] 

*•*1 TO 

identifier-3) 
index-name-3 / 

(,index-name-1 

[, 

index-name-2] 

.../ — 

, integer-1 ) 


Format 2 


SET index-name-4 [, index-name-5] 



UP BY Widentifie r-4) 
DOWN BY ft integer-2 / 


Syntax Rules 

1. All references to index-name-1, identifier-1, and index-name-4 apply 
equally to index—name—2, identifier—2, and index—name—5, respectively. 
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2» Identifier-1 end identifier—3 must name either index data items, or 

elementary items described as an integer. 

3. Identifier-4 must be described as an elementary numeric integer. 

* Integer—1 and integer—2 may be signed. Integer—1 must be positive. 


General Rules 


1. Index-names are considered related to a given table and are defined by 
being specified in the INDEXED BY clause. 

2. If index-name-3 is specified, the value of the index before the 
execution of the SET statement must correspond to an occurrence number 
of an element in the associated table. 

If index-name-4, index-name-5 is specified, the value of the index both 
before and after the execution of the SET statement must correspond to an 
occurrence number of an element in the associated table. If index-name-1, 
[( index-name-2 is specified, the value of the index after the execution of the 
SET statement must correspond to an occurrence number of an element in the 
associated table. The value of the index associated with an index-name 

a ^ ter execution of a PERFORM statement may be undefined. (See THE 

PERFORM STATEMENT in Chapter 3). 


In Format 1, the following action occurs: 


cr 


a. Index-name-1 is set to a value causing it to refer to the table 

element that corresponds in occurrence number to the table element 
referenced by index-name—3, identifier—3, or integer—1. If 

identifier-3 is an index data Item, or if index-name-3 is related 
to the same table as index-name 1, no conversion takes place. 

b. If identifier—1 is an index data item, it may be set equal to 

either the contents of index-name-3 or identifier-3 where 
identifier-3 is also an index item; no conversion takes place in 
either case. ' 

c. If identifier-1 is not an index data item, it may be set only to 

an occurrence number that corresponds to the value of 

index-name-3. Neither identifier-3 nor integer-1 can be used in 
this case. 


r 


d. The process is repeated for index-name-2, identifier-2, etc. if 
specified. Each time the value of index-name-3 or identifier-3 is 
used as it was at the beginning of the execution of the statement. 
Any subscripting or indexing associated with identifier-1, etc. 
is evaluated Immediately before the value of the respective data 
Item is changed. 

In Format 2, the contents of index-name-4 are incremented (UP BY) or 
decremented (DOWN BY) by a value that corresponds to the.- number of 

?w rr f? CeS r v epresented b y the value of integer-2 or identifier-4; 
hereafter, the process is repeated for index-name-5, etc. Each time 
the value of identifier-4 la „ 3 ed aa It was at the beginning of tte 
execution of the statement. 
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5. 


Data in Table 4-1 represents the validity of various operand 
combinations in the SET statement. The general rule reference 
indicates the applicable general rule. 

Table 4-1. SET Statement Valued Operand Combinations. 


Sending Item 

Receiving Item^ - 

Integer Data Item 

Index-Name 

Index Data Item 

Integer Literal 

No/3c 

Valid/3a 

No/3b 

Integer Data Item 

No/3c 

Valid/3a 

No/3b 

Index-Name 

Valid/3c 

Valid/3a 

Valid/3b 2 

Index Data Item 

No/3c 

Valid/3a 2 

Valid/3b 2 


1 - Rule numbers under General Rules above are referred to. 

2 =» No conversion takes place 
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CHAPTER 5 


SEQUENTIAL INPUT AND OUTPUT 


INTRODUCTION TO THE SEQUENTIAL 1-0 MODULE 

... T j he Sec l ueil tial 1-0 module provides a capability to access records of a 
file in established sequence. The sequence is established as a result of 
writing the records to the file. It also provides for the specification of 
re-run points and the sharing of memory areas among files. 

LANGUAGE CONCEPTS 


Organization 


Sequential files are organized such that each record in the file except 
the first has a unique predecessor record, and each record except the last 
a successor record. These predecessor-successor relationships 

are established by the order of WRITE statements when the file is created. 
Once established, the predecessor-successor relationships do not change 
except in the case where records are added to She end of the file. 

Access Mode 


In j ^ he se£ l uential access mode, the sequence in which records are 
accessed is the order in which the records were originally written. 

Current Record Pointer 


* r current record pointer is a conceptual entity used in this document 

Se* 116 Spec * fi< ; aticm of the next record to be accessed within a given 
J 116 = once Pt of the current record point has no meaning for a file 

affprr ^ t 1 he , out ^ ut mode - ^ setting of the current record pointer is 
affected only by the OPEN and READ statements. pointer is 

1-0 Status 


is nLE , STATUS ' clause-is., specified in a file control entry, a value 

an OPEN aoSE two " character data item during the execution of 

USE nrnrpH ’■< * WRITE, or REWRITE statement and before any applicable 

Et'S^XS operation. C ° ^ C ° B ° L ^ --of 

Status Key 1 


as St^us 1 Kl?T t ^ ha , raCter Position of the FILE STATUS data item is known 
completion of the input-o«p« ^erat£onr“ ^ ^ f ° U0Blag seditions opon 


'O' 

, 1 * 

» 3 r 

'9 ’ 


indicates 

indicates 

indicates 

indicates 


Successful Completion 
At End 

Permanent Error 

an Operating System Error Message 



The meaning of the above indications are as follows: 

0 - Successful Completion. The input-output statement was 

successfully executied. 

1 - At End. The sequential READ statement was unsuccessfully 

executed either as a result of an attempt to read a record 
when no next logical record exists in the file 

3 - Permanent Error. The input-output statement was 

unsuccessfully executed as the result of a boundary violation 
for a sequential file or as the result of an input-output 
error, such as data check parity error, or transmission 
error. 

9 - Operating System Error Message. The input-output statement 

was unsuccessfully executed as a result of a condition that 
is specified by the Operating System Error Message. This 
value is used only to indicate a condition not indicated by 
other defined values of status key 1, or by specified 
combinations of the values of status key 1 and status key 2. 


Status Key 2 

The rightmost character position of the FILE STATUS data item is known 
as Status Key 2 and is used to further describe the results of the 
input-output operation. This character will contain a value as follow: 

* If no further information is available concerning the input-output 
operation, then status key 2 contains a value of 0 . 

* When status key 1 contains a value of '3' an irrecoverable error 
has occurred. This is treated as a fatal error by the Operating 
System. 

* When status key 1 contains a value of '9', the value of status key 
2 is the Operating System Error Message number. 

Valid Combinations of Status Keys 1 and 2 

The valid permissible combinations of the values of status key 1 and 
3 tatus key 2 are shown in the following table. An 'X' at an intersection 
indicates a valid permissible combination. 


Status Key 1 

Status Key 2 _ . 

No Further 

Information 

(0) ___ 

Successful Completion (0) 

X 

At End (1) 

X 

Permanent Error (3) 

X_ 

Implementor Defined (9) 

0/S Error Number 




The AT END Condition 


The AT END condition can occur as a 
statement. For details of the causes 
STATEMENT later in this Chapter. 


result of the execution of a READ 
of the condition, see THE READ 
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ENVIRONMENT DIVISION IN THE SEQUENTIAL I-Q MODULE 


INPUT-OUTPUT SECTION 

The FILE-CONTROL Paragraph 

Function 

The FILE-CONTROL paragraph names each file and allows specification of 
other file-related information. (See also Appendix I in this manual). 

General Format 

FILE-CONTROL. file-control-entry 


The FILE CONTROL Entry 


Function 


The file control entry names a file and may specify other file-related 
information. 


General Format 


SELECT 


file-name 


ASSIGN 10 | external-file-name-literal | p 
(file—identifier 
ji organization IS 


ext ernal-file-name-literal 
file-identifier 


[; ACCESS MODE IS SEQUENTIAL ] 
(; FILE STATUS IS data-name-1] 


Syntax Rules 

1. The SELECT clause must be specified first in the file control entry. 
The clauses which follow the SELECT clause may appear in any order. 

2. Each file described in the Data Division must be named once and only 
once as file-name in the FILE-CONTROL paragraph. Each file specified 
in the file control entry must have a file description entry in the 
Data Division. 

3. If the ACCESS MODE clause is not specified, the ACCESS MODE IS 
SEQUENTIAL clause is implied. 

4. Data-name-1 must be defined in the Data Division as a two-character 
data item of the category alphanumeric and must not be defined in the 
File Section. 


5. 


Data-name—1 may be qualified. 



6. When the ORGANIZATION IS SEQUENTIAL clause is not specified, the 
ORGANIZATION IS SEQUENTIAL clause is implied. 

General Rules 

1. The ASSIGN clause specifies the association of the file referenced by 

file-name to a storage medium. See Appendix F in the CIS COBOL 
Operating Guide. The first assignment takes effect. Subsequent 

assignments within any one ASSIGN clause are for documentation purposes 
only. 

2. The ORGANIZATION clause specifies the logical structure of a file. The 
file organization is established at the time a file is created and 
cannot subsequently be changed. 

3. When .LINE SEQUENTIAL ORGANIZATION is specified, the file is treated as 
; consisting of variable length records, each record containing one line 

of data terminated by the end of line characters CR and/or LF. 

4. Records in the file are accessed in the sequence dictated by the file 
organization. This sequence is specified by predecessor—successor 
record relationships established by the execution of WRITE statements 
when the file is created or extended. 

5. When the FILE STATUS clause is specified', a value will be moved by the 
operating system into the data item specified by data-name—1 after the 
execution of every statement that references that file either 
explicitly or implicitly. This value indicates the status of execution 
of the statement (See 1-0 STATUS in this Chapter). 
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The 1-0—CONTROL Paragraph 


Function 


The 1-0 CONTROL paragraph specifies the points at which re-run is to be 
established, the memory area which is to be shared by different files, and 
the location of files on a multiple file reel. 

General Format 


I-O-CONTROLi 

| integer-1 RECORDS ) ° F f ile-name 
integer-2 CLOCK-UNITS 
condition-name 

[; SAME AREA FOR file—name—3 |, file-name—4 [ ... ] ... 


RERUN 


[on{ 


file-name-1 

implementor-name 


}] 


EVERY 


Syntax Rules 

The I-0-CONTROL paragraph is optional. The whole clause is for 
v documentation only when present. 

2. File-name—1 must be a sequentially organized file. 

3. The END. OF REEL/UNIT clause may only be used if file-name-2 is a 

sequentially organized file and is for documentation purposes only. 

4. When either the integer-1 RECORDS clause or the integer-2 CLOCK-UNITS 

clause is specified, implementor-name must be given in the RERUN 

clause. 

5. More than one RERUN clause may be specified for a given file-name-2. 

6. The files referenced in the SAME AREA clause need not all have the same 

organization or access. 

General Rules 

1. The RERUN clause is treated as for documentation purposes only. 

The SAME AREA clause is treated as for documentation purposes only. 


2 




DATA DIVISION IN THE SEQUENTIAL 1-0 MODULE 


FILE SECTION 

In a CIS COBOL program the file description entry (FD) represents the 
highest level of organisation in the File Section. The File Section header 
is followed by a file description entry consisting of a level Indicator 
(FD), a file-name and a series of independent clauses. The FD clauses 
specify the size of the logical and physical records, the presence dr 
absence of label records, the value of implementor-defined label items, the 
names of the data records which comprise the file. The entry itself is 
terminated by a period. 

RECORD DESCRIPTION STRUCTURE 

A record description consists of a set of data description entries 
which describe the characteristics of a particular record. Each data 
description entry consists of a level-number followed by a data-name if 
required, followed by a series of independent clauses as required. A record 
description has a hierarchical structure and therefore the clauses used with 
an entry may vary considerably, depending upon whether or not it is followed 
by subordinate entries. The structure of a record description is adfined in 
CONCEPT OF LEVELS in Chapter 2, while the elements allowed in a record 
description are shown in the Data Description - Complete Entry Skeleton in 
Chapter 3. 
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THE FILE DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 

The file description furnishes information concerning the physical 
structure, identification, and record names pertaining to a given file. 



General Format 

. / 

FD file-name 

{ RECORD‘D ) 

; BLOCK CONTAINS integer-2 { CHARACTERS / _ 

[; RECORD CONTAINS integer-3 TO integer-4 CHARACTERS] 

< RECORD IS ) i STANDARD) 

; LABEL ^ RECORDS ARE / | OMITTED f 

VALUE OF data-name-1 IS literal-1 

[, data-name-2 IS literal-2] . ..J 

r nATA / RECORD IS \ 1 

L* — - == ) RECORDS ARE j data-name-3 [, data-name-4] ...J 

; CODE-SET IS alphabet-name 


Syntax Rules 


1 . 

2 . 



The level indicator FD identifies the beginning of a file description 
and must precede the file-name. 

The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is Immaterial. All clauses are* 
op tixmal when the. AHS~ switch la unset (See Chapter 2) * 



One or more record description entries must follow the file description 
entry. 





THE BLOCK CONTAINS CLAUSE 


Function 


The BLOCK CONTAINS clause specifies the size 
General Format 

BLOCK CONTAINS [integer-1 TO ] integer-2 


of a physical record. 


RECORDS ) 
CHARACTERS j 


General Rule 

reqxx.ix'eid. Jfojc documentation purposes jranly. 


THE CODE-SET CLAUSE 
Function 

The CODE-SET clause specifies, the character code set used to represent 
data on the external media. 

General Format 

CODE—SET IS alphabet—name 

Syntax Rules 

1. When the CODE-SET clause is specified for a file, all data in that file 
must be described as usage is DISPLAY and any signed numeric data must 
be described with the SIGN IS SEPARATE clause. 

2. The alphabet-name clause referenced by the CODE-SET clause must not 
specify the literal phrase. 

3. The CODE-SET clause may only be specified for nan-disk files.. 


General Rule 



THE DATA RECORDS CLAUSE 
Function 


The DATA RECORDS clause serves only as 
data records with their associated file. 


documentation for the names of 


General Format 


DATA 


RECORD IS ) 
RECORDS ARE / 


data-name-1 


[, data-name-2] 






Syntax Rule 


' '> 

Data-name-L and data-name-2 are the names of data records and must have 
01 level-number record descriptions, with the same names, associated 
with them. 

General Rule 

The DATA RECORDS clause is specified for documentation purposes only. 


THE LABEL RECORDS CLAUSE 
Function 

The LABEL RECORDS clause specifies whether labels are present. 

General Format 

STANDARD \ 

OMITTED / 

Syntax Rule 

This clause is required in every file description entry, wtiiegx-Ltg ^«SBS[ 
General Rule 

doci5»irtat5j5: purposesTonl yl 

THE RECORD CONTAINS CLAUSE 
Function 

The RECORD CONTAINS clause specifies the size of data records. 

General Format -s 

RECORD CONTAINS Integer-1 TO integer-2 CHARACTERS 


LABEL 


RECORD IS 
RECORDS ARE 


H 


General Rule 

The size of each data record is completely defined within the^ record 
description entry, therefore this clause^is never required._ Tfi e REC ORD 
T 7 ^ATNST cIati3e'Ta^pecIfie<f" for 'docij^ni^tlog 'purposea ~palj j 
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THE VALUE OF CLAUSE 


Function 

The VALUE OF clause specialises the description of an item in the label 
records associated with a file. 

General Format 

VALUE OF data-name-1 IS literal-1 

[, dataname2 IS literal-2] ... 

General Rules 
1 . 

^ fi§ ur- ative constant may be substituted in the format above wherever a 
literal is specified. 



(£ 


(7 

( 
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PROCEDURE DIVISION IN THE SEQUENTIAL 1-0 MODULE 


THE CLOSE STATEMENT 
Function 


The CLOSE statement terminates the processing of files. 
General Format 

CLOSE file-name-1 


REEL )' 

UNIT ) 


Syntax Rule 


The REEL or UNIT phrase must only be used for sequential file, aacf..areS 
g^^ Sgcro^atloia,. 


General Rules 

1. A CLOSE statement may only be executed for a ’’file in an open mode. 

2. The action taken if the file is in the open mode when a STOP RUN 
statement is executed is to close the file. The action taken for a file 
that has been opened in a called program and not closed in that program 
prior to the execution of a CANCEL statement for that program is to 
leave the file open. 

3. If a CLOSE statement has been executed for a file, no other statement 
can be executed that references that file, either explicitly or 
implicitly, unless an intervening OPEN statement for that file is 
executed. 

4. Following the successful execution of a CLOSE statement the record area 
associated with file—name is no longer available. The unsuccessful 
execution of such a CLOSE statement leaves the availability of the 
record area undefined. 
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THE OPEN STATEMENT 



Function 


The OPEN statement initiates the processing of files. It also performs 
checking and/or writing of labels and other input-output operations. 

General Format 


OPEN 


INPUT file-name-1 
OUTPUT file-name-3 

1-0 file-name-5 
EXTEND file—name—7 


[, file-name-2] 

[, file-name-4] ... 

[, file-name-6] ... 
[, file-name-8] ... 


("" Syntax Rules 

1. The 1-0 phrase can be used only for disk files. 

2. The EXTEND phrase can be used only for sequential files. 
General Rules 


1. The successful execution of an OPEN statement determines the avail¬ 
ability of the file and results in the file being in an open mode. 

2. The successful execution of an OPEN statement makes the associated 
record area available to the program. 

3. Prior to the successful execution of an OPEN statement for a given 
file, no statement can be executed that references that file, either 
explicitly or implicitly. 



An OPEN statement must be successfully executed prior to the execution 
of any of the permissible input-output statement. In Table 5-1, 'X' at 
an intersection indicates that the specified statement, used in the 
sequential access mode, may be used with the sequential file 
organization and open mode given at the top of the column. 
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Table 5-1. Permissable Combinations of Statements and OPEN Modes for 
Sequential I/O. 


Statement 

Open Mode 


Input 

Output 

Input-Output'*' 

Extend 

READ 

X 


X 


WRITE 


X 


X 

REWRITE 



X 


1 - This OPEN 

mode is not 

supported for ORGANIZATION line sequential files. 


5. A file may be opened with the INPUT, OUTPUT, EXTEND and 1-0 phrases in 
the same program. Following the initial' execution of an OPEN statement 
for a file, each subsequent OPEN statement execution for that same file 
must be preceded by the execution of a CLOSE statement, for that file. 

6. Execution of the OPEN statement does not obtain or release the first 
data record. 

7. The ASSIGNed name in the SELECT statement for a file is processed as 
follows: 

a. When the INPUT phrase Is specified, the execution of the OPEN 
statement causes the ASSIGNed name to be checked in accordance 
with the operating system conventions for opening files for input. 

b. When the OUTPUT phrase is specified’, the execution of the OPEN 
statement causes the ASSIGNed name to be written in accordance 
with the operating system conventions for opening files for 
output. 

8. The file description entry for file-name-1, file-name-5, must be 
equivalent to that used when this file was created. 

9. If the storage medium for the file permits rewinding, execution of the 

OPEN statement causes the file to be positioned at its beginning. 

10. For files being opened with the INPUT or 1-0 phrase, the OPEN statement 

sets the current record pointer to the first record currently existing 
within the file. If no records exist in the file, the current record 
pointer is set such that the next executed READ statement for the file 

* will result in an AT END condition. If the file does not exist, OPEN 
INPUT will cause an error 3tatus. 

11. when the EXTEND phrase is specified, the OPEN statement positions the 

file immediately following the last logical record of that file. 
Subsequent WRITE statements referencing the file will add records to 
the file as though the file had been opened with the OUTPUT phrase. 

12. The 1-0 phrase permits the opening of a disk file for both input and 

output operations except for files in ORGANIZATION LINE SEQUENTIAL. 
Since this phrase implies the existence of the file, it cannot be used 
if the mass storage file is being initially created. If the file does 
not exist it will be created. 
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13. Upon successful execution of an OPEN statement with the OUTPUT phrase 
specified, a file is created. At that time the associated file 
contains no data records. If a file of the same name exists it will be 
deleted. If write-protected on error will occur. 
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THE READ STATEMENT 


Function 


The READ statement makes available the next logical record from a file. 


General Format 


READ file-name RECORD [INTO identifier] [j AT END imperative-statement] 


Syntax Rules 

1. The INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. 
The storage area associated with identifier and the record area 
associated with file-name must not be the same storage area. 

2. The AT END phrase must be specified if no applicable USE procedure is 
specified for file-name. 


General Rules 


1. The associated file must be open in the INPUT or 1-0 mode at the time 
this statement is executed. (See THE OPEN STATEMENT in this Chapter). 

2. The record to be made available by the READ statement is determined as 
follows:- 

a. If the current record pointer was positioned by the execution of 
the OPEN statement, the record pointed to by the current record 
pointer is made available. 

b. If the current record pointer was positioned by the execution of a 
previous READ statement, the current record pointer is updated to 
point to the next existing record in the file and then that record 
is made available. 

3. The execution of the READ statement causes the value of the FILE STATUS 
data item, if any, associated with file-name to be updated. (See 1-0 
STATUS in this Chapter). 

4. Regardless of the method used to overlap access time with processing 
time, the concept of the READ statement is unchanged in that a record 
is available to the object program prior to the execution of any 
statement following the READ statement. 

When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalent to an implicit redefinition of the area. The 
contents of any data items which lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
READ statement. 
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If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement. The implied MOVE does not 
occur if the execution of the READ statement was unsuccessful. Any 
subscripting or indexing associated with identifier is evaluated after 
the record has been read and immediately before it is moved to the data 
item. 


When the INTO phrase is used, the record being read is available in 

both the input record area and the data area associated with 
identifier. 


If, at the time of execution of a READ statement, the position of 
current record pointer for that file is undefined, the execution of 
that READ statement is unsuccessful. 


HL_ the end ° f a reel ° r unlt ls rec °gnized during the execution of a 
READ statement, an end-of—file status condition exists. 


a. The standard ending reel/unit label procedure. 

b. A reel/unit swap. 


c. The standard beginning reel/unit label procedure. 


The first data record of the new reel/unit is made available. 


If, at the time of the 
record exists in the 
execution of the READ 
STATUS). 


execution of a READ statement, no next 
the AT END condition occurs, 
statement is considered unsuccessful. 


logical 
and the 
(See I—0 


When the AT END condition is recognized the following 
in the specified order: 


actions are taken 


a ' Lit 1 '?,, 13 p , la “ d * nt ° the STATUS data Item, If specified for 

this file, to indicate an AT END condition. (See 1-0 STATUS). 

b ’ AI ^ Pbr T 13 Spacl£ied ^ <*« statement causing the 

condition, control is transferred to the AI EB 

s p noT™5r nt - Aoy dse prooedura specuied £ ° r ^ “ 

c. If the AT END phrase is not specified, then a USE procedure must 
tLt procedure °' ' h£3 £ « a aad 

When the AT END condition occurs, execution of the Input-outDut 
statement which caused the condition is unsuccessful. P 

Following the unsuccessful execution of anv rvah „ * 

contents of the associated record area and thfpos^on oTST*’ ^ 
record pointer are undefined. position of the current 

uL A Ls™no\ 0n b“^c«L b “?hol e t C °ff i;ed ’ 3 RE “ 3ta<;ement f °' 

CLOSE statement followed by the ieoution 0 T C “ tlng a 3 “ ddaas£ “l 
statement for that file. 7 execution of a successful OPEN 




THE REWRITE STATEMENT 


Function 


The REWRITE statement logically replaces a record existing in a disk 

file. 


General Format 

REWRITE record-name [FROM identifier] 


Syntax Rules 

1. Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the File Section of the 
Data Division and may be qualified. 

General Rules 

1. The file associated with record-name must be a disk file and must be 
open in the 1-0 mode at the time of execution of this statement. (See 
THE OPEN STATEMENT in this Chapter). 

2. The last input-output statement executed for the associated file prior 
to the execution of the REWRITE statement must have been a successfully 
executed READ statement. The operating system logically replaces the 
record that was assessed by the READ statement. 

3. The number of character positions in the record referenced by 
record—name must be equal to the number of character positions in the 
record being replaced. 

4. The logical record released by a successful execution of the REWRITE 
statement is no longer available in the record area. . 

/'A 

5. The execution of a REWRITE statement with the FROM phrase is equivalent v 
to the execution of: 


MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement without the 
FROM phrase. The contents of the record area prior to the execution of 
the implicit MOVE statement have no effect on the execution of the 
REWRITE statement. 

Xhe current record pointer is not affected by the execution of a 
REWRITE statement. 

7. The execution of the REWRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 STATUS in this Chapter). 

8. Thw HE8KITF a tateaent cannot: be uaed wititline sequential filed 
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THE USE STATEMENT 


Function 

The USE statement specifies procedures for input-output error handling 
that are in addition to the standard procedures provided by the input-output 
control system. 


General Format 


USE AFTER STANDARD 


{ 


EXCEPTION 

ERROR 


file-name-1 


PROCEDURE 


ON 


INPUT 

OUTPUT 

1-0 

EXTEND 


Syntax Rules 


1. A USE statement, when present, must Immediately follow a section header 
in the declaratives section and must b« followed by a period toiTowed 
by a space. The remainder of the section must consist of zero, one or 
more procedural paragraphs that define the procedure to be used. 

2. The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 


General Rules 


If the AT END phase has not been specified in the input-output 
statement, the designated procedures are executed by the input-output 
system after completing the standard input-output error routine upon 
recognition of the AT END condition 


2. After execution of a USE procedure, control is returned to the invoking 
routine. 6 


3 . 


4. 


Within a USE procedure, there must not be any reference to any non¬ 
declarative procedures. Conversely, in the nondeclarative portion 
t ere must be no reference to procedure-names that appear in the 
declarative portion, except that PERFORM statements may refer to a USE 
statement or to the procedures associated with such a USE statement. 


Within a USE procedure, there must not be the execution of any state¬ 
ment that would cause the execution of a USE procedure that had 
previously been invoked and had not yet returned control to the 
invoking routine. 


5-19 



THE WRITE STATEMENT 


Function 


The WRITE statement releases a logical record for an output file. It 
can also be used for vertical positioning of lines within a logical page. 


General Format 


WRITE record-name [FROM identifier-1] 


BEFORE ) 
AFTER / 


ADVANCING 



Syntax Rules 

1. Record-name and identifier-1 must not reference the same storage area. 

2. the ~ f^sulm~'£s"tb^/'ca ^3e^tSg'"Ira-pe^r :, ' tcT tffrow t of tfrd 
standard vertic al, tabul atio n., eositi ocrj 

3. The record-name is the name of a logical record in the File Section of 
the Data Division. 


• 4. Integer may be zero. 


General Rules 

]_ # 'The associated file must be .open in the OUTPUT mode at the time of the 
execution of this statement. (See THE OPEN STATEMENT in this Chapter). 

2. The logical record released by the execution of the WRITE statement is 
no longer available in the record area unlessthe execution of the WRITE 
statement was unsuccessful due to a boundary violation. 

3. The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of: 

a. The statement: 

* 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement, followed 
by: 

b. The same WRITE statement without the FROM phrase. 

The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 
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After execution of the WRITE statement is complete, the 
information in the area referenced by identifier-1 is available, 
even though the information in the area referenced by record—name 
may not be. (See general rule 2.) 

The current record pointer is unaffected by the execution- of a WRITE 
statement. 


5. The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 STATUS in this Chapter). 

6. The maximum record size for a file is established at the time the file 
is created and must not subsequently be changed. 

7. The number of character positions on a disk required to store a logical 
record in a file may or may not be equal to the number of character 
positions defined by the logical description of that record in the 
program. 

3. T'W execution of the WRITE statement releases a logical record to the 
operating system. 

9. The ADVANCING phrase allows control of the vertical positioning of each 
line on a representation of a printed page. If the ADVANCING phrase is 
not used, automatic advancing will be provided as long as ORGANIZATION 
L LINE SEQUENTIAL is specified. The default is to BEFORE ADVANCING^ If 
the ADVANCING phrase is used, advancing is provided as follows: 

a. If integer Is specified, the representation of the printed page is 
advanced the number of lines equal to the value of integer. 

the BEFORE phrase is used, the line is presented before the 
representation of the printed page is advanced according to rule a 
above. * 


c. If the AFTER phrase is used, the line is presented after the 
representation of the printed" page is advance^ according to rule 
above. 

d. If PAGE is specified, the record is presented on the logical page 
before or after (depending on the phrase used) the device is 
repositioned to the next logical page. 

10. When an attempt is made to write beyond the externally defined bound¬ 
aries of a sequential file, an exception condition exists and the 

contents of the record area are unaffected. The following action takes 
place: 


a. The value of the FILE STATUS data item, if any, of the associated 
file is set to a value indicating a boundary violation. (See 1-0 
STATUS in this Chapter). 


b. 


If a USE AFTER STANDARD EXCEPTION declarative is 
implicitly specified for the file, that declarative 
then be executed. 


explicitly or 
procedure will 
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If a USE AFTER STANDARD EXCEPTION declarative is not explicitly or 
implicitly specified for the file, the result is undefined. 



CHAPTER 6 


RELATIVE INPUT AND OUTPUT 


INTRODUCTION TO THE RELATIVE I-Q MODULE 

The Relative 1-0 module provides a capability to access records of a mass 
storage file in either a random or sequential manner. Each record in a 
relative file is uniquely identified by an integer value greater than zero 
which specifies the record’s ordinal position in the file. 

LANGUAGE CONCEPTS 

Organization 


Relative file organization is permitted only on disk devices. A relative 
file consists of records which are identified by relative record numbers. 
The file may be thought of as composed of a serial string of areas each 
capable of holding a logical record. Each of these areas is denominated by 
a relative record number. Records are stored and retrieved’ based- on this 
number. For example, the tenth record area, whether or not records have 
been written in the first through the ninth record areas. 

Access Modes 

In the sequential access mode, the sequence in which records are accessed is 
the ascending order of the relative record numbers of all records which 
currently exist within the file. 

In the random access mode, the sequence in which records are accessed is 
controlled by the programmer. The desired record is accessed by placing its 
relative record number in a relative key data item. 

In the dynamic access mode, the programmer may change at will from 

sequential access to random access using appropriate forms of input-output 
statements. r 


Current Record Pointer 

f^-nTJ r ^ nt rec ?r? printer is a conceptual entity used in this document to 
fllJ 11 S 3 speciflca ^ io °’ of the aext record to be accessed within a given 
fiie. The concept of the current record pointer has no meaning for a file 
opened in the output mode. The setting of the current record pointer is 
affected only by the OPEN, START and READ statements. 

I—Q Status 

If the FILE STATUS clause is specified in a file control entry, a value Is 

OPEN CLoS R Vn PeC OTTTv tW °^ haracter data item during the execution of an 
apSicSlfusf^n T \ REWRITE, DELETE or START statement and before any 
applicable USE procedure is executed, to indicate to the COBOL program the 
status of that Input—output operation. 
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Status Key 1 

The leftmost character position of the FILE STATUS data item is known as 
status key 1 and is set to indicate one of the following conditions upon 
completion of the input-output operation. 

'O’ - indicates Successful Completion 

* 1 1 - indicates At End 

'2* - indicates Invalid Key 

*3 ' - indicates Permanent Error 

f 9* - indicates an Operating System Error Message 
The meaning of the above indications are as follows: 

*0' - Successful Completion. The input-output statement was 
successfully executed. 

’ 1’ - At End. The Format 1 READ statement was unsuccessfully 

executed as a result of an attempt to read a record when no 
next logical record exists in the file. 

’2' - Invalid Key. The input-output statement was unsuccessfully 
executed as a result of one of the following: 

* Duplicate Key 

* No Record Found 

* Boundary Violation 

'3 r - Permanent Error. The input-output statement was unsuccessfully 
executed as the reult of an input-output error, such as data 
check, parity error or transmission error. 

*9* - Operating System Error Message. The input-output statement was 
unsuccessfully executed as the result of a condition that is 
specified by the Operating System. This value is used only to 
indicate a condition not indicated by other defined values of 
status key 1, or by specified combinations of the values of status 
key 1 and status key 2. 


Status Key 2 

The rightmost character position of the FILE STATUS data item is known 
as status key 2 and is used to further describe the reults of the 
input-output operation. This character contains a value as follows: 

* If no further information is available concerning the input-output 
operation, then status key 2 contains a value of *0' 



When status key 1 contains a value of ' 2 T indicating an INVALID 
KEY condition, status key 2 is used to designate the cause of that 
condition by the following values: 

2 - Indicates a duplicate key value. An attempt has been 

made' to write a record that would create a duplicate key 
in a relative file. 

3 - Indicates no record found. An attempt has been made to 

access a record, identified by a key, and that record 

does not exist in the file. 

4 - Indicates a boundary violation. An attempt has been 

made to write beyond the externally-defined boundaries 
of a relative file. This is normally treated as a fatal 
error by the Operation System. 

When status key 1 contains a value of 1 9' the value of status key 
2 is the Operating System Error Message number. 


Valid Combinations of Status Keys 1 and 2 

The valid permissible combinations of the values of status key 1 and 
status key2 are shown in the table. An 'X' at an intersection indicates a 
valid permissible combination. 


Status Key 1 

Status Key 2 

No Further 
Information 
(0) 

Duplicate 

Key 

(2) 

No Record 

Found 

(3) 

Boundary 

Violation 

(4) 

Successful 
Completion (0) 

X 


s 


At' End (1) 

X- 


■ 


Invalid Key (2) 


X 

X 

X 

Permanent 

Error (3) 

X 




Implementor 

Defined (9) 

Operating System Error Message Nun 

aber 


The INVALID KEY Condition 


The INVALID KEY condition can occur as a result of the execution of a START 
READ, WRITE, REWRITE or DELETE statement. For details of the causes of the 
condition, see The START Statement, The READ Statement, The WRITE Statement 
The REWRITE Statement, and The DELETE Statement later In this chapter.’ 
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When the INVALID KEY condition is recognised, the Operating System takes 
these actions in the following order; 

1. A value is placed into the FILE STATUS data item, if specified for this 

to indicate an INVALID KEY condition. (See 1-0 Status in this 
Chapter). —- 

2. If the INVALID KEY phrase is specified in the statement causing the 
condition, control is transferred to the INVALID KEY imperative 
statement. Any USE procedure specified for this file is not executed. 

3. If the INVALID KEY phrase is not specified, but a USE procedure is 
specified, either explicitly or implicitly, for this file, that 
procedure is executed. 

When the INVALID KEY condition occurs, execution of the input-output 
statement which recognised the condition is unsuccessful, and the file is 
not affected. 


The AT END Condition 

The AT END condition can occur as a result of the execution of a READ 
statement. For details of the causes of the condition, see The READ 
Statement later in this chapter. 



ENVIRONMENT DIVISION IN THE RELATIVE 1-0 MODULE 


INPUT-OUTPUT SECTION 

The File—Control Paragraph 

Function 


The FILE-CONTROL paragraph names each file and allows specification of 
other file-related information. (See also Appendix F in the CIS COBOL 
Operating Guide). 

General Format 


FILE-CONTROL (file-control-entry) 
The File Control Entry 
Function 


The file control entry names a file and may specify other file-related 
information. 

General Format 

SELECT file—name 


ASSIGN TO 


r external-file-name-literali 
* file-identifier ' 

[" { Sxternal-file-name-literal 
L’ l file-identifier 


; ORGANIZATION IS RELATIVE 






SEQUENTIAL ,RELATIVE KEY IS data-name 

I! 

; ACCESS MODE IS 

( RANDOM ) 


| 

| DYNAMIC f ,.RELrtHVi KaY IS data—Damn—1 



i 



[» FILE STATUS IS data—name—2]. 


Syntax Rules 


1 . 


2 . 


The SELECT clause must be specified first in the file 
The clauses which follow the SELECT clause may appear 


control entry, 
in any order. 


Each file described in the Data Division must be named once and only 
ame thS ^"CONTROL paragraph. Each file specified 
Data"^Mvision COntr °^ entry must have a file description entry in the 


3. 


If the ACCESS MODE clause Is not 
SEQUENTIAL clause is implied. 


specified. 


the ACCESS MODE IS 


4. 


dltr'JT*" 2 f W T ^ def±ned 1x1 the Data Division as a two-character 
f*®, ° f *5® aate S or 7 alphanumeric and must not be defined in the 
File Section, the Report Section, or the Communication Section. 
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5. 1 Data-name-L must not be defined in a record description entry- 
associated with that file-name. 

6. The data item referenced by data-name-1 must be defined as an unsigned 
integer. 


General Rules 

1.. The ASSIGN clause specifies the association of the file referenced by 
file—name to a storage medium. See Appendix F in the CIS COBOL 
Operating Guide. TSe r ~’r&S'tT'^'sslgnmeiit ' takes ' place. SuB sequent: 
^oaYgnTnertta wltMn. any one ASSI GN clause are foe docu mentation pur poses! 

2. The ORGANIZATION clause specifies the logical structure of a file. The 
file organization is established at the time a file is created and 
cannot subsequently be changed. 

3. When the access mode is sequential, records in the file are accessed in 
the sequence dictated by the file organization. This sequence is the 
order of ascending relative record numbers of existing records in the 
file. 

4. When the FILE STATUS clause is specified, a value will be moved by the 
operating system into the data item specified by data-name-2 after the 
execution of every statement that references that file either 
explicitly or implicitly. This value indicates the status of execution 
of the statement. (See I—0 Status in this Chapter). 

5. If the access mode is random, the value of the RELATIVE KEY data item 
indicates the record to be accessed. 

6. When the access made is dynamic, records in the file may be assessed 
sequentially and/or randomly. (See General Rules 3 and 5). 

7. All records stored In a relative file are uniquely identified by 
relative record numbers. The relative record number of a given record 
specifies the record's logical ordinal position in the file. The first 
logical record has a relative record number of I, and subsequent 
logical records have relative record numbers of 2, 3, 4, ... . 

The data item specified by data-name-1 is used to communicate a 
relative record number between the user and the Operating System. 
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The I—O-CQNTROL Paragraph 


Function 


The I-O-CONTROL paragraph specifies the points at which rerun is to be 
established -and the memory area which is to be shared by different files. 

General Format 

I-O-CONTROL . 

; RERUN ON j file-name-1 ) finteger-1 RECORDS OF file-name 

) _ } EVERY ( integer-2 CLOCK-UNITS 

( implementor-namej (condition-name 

[j SAME AREA FOR file—name—3 j , file—name—4 }... ] 


Syntax Rules 


1* The I-O-CONTROL paragraph is optional. The whole clause is for 

documentation purposes only when present 

2. File-name-1 must be a sequentially organized file. 

3. When either the integer-1 RECORDS clause or the integer-2 CLOCK-UNITS 

c ause is specified, implementor—name must be given in the RERUN 
clause. 

4. More than one RERUN clause may be specified for a given file-name-2 
subject to the following restriction: 

When multiple integer-1 RECORDS clauses are specified, no two of 
them may specify the same file-name-2. 

5. Only one RERUN clause containing the CLOCK-UNITS clause may be 

specified. J 


6. More than one SAME clause may be included in a program but file-name 
must not appear in more than one SAME AREA clause. 


7. 


The files referenced in the SAME AREA clause need not all have the 
organization or access. 


same 


General Rules 


1 • — 
2 • 


pur pos es 
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DATA DIVISION IN THE RELATIVE 1-0 MODULE 


FILE SECTION 

In a CIS COBOL program the file description entry (FD) represents the 
highest level or organization in the File Section. The File Section header 
is followed by a file description entry consisting of a level indicator 
(FD), a file-name and a series of independent clauses. The FD clauses 
specify the size of the logical and physical records, the presence or 
absence of label records, the value of implementor-defined label items, and 
the names of the data records which comprise the file. The entry itself is 
terminated by a period. 

RECORD DESCRIPTION STRUCTURE 

A record description consists of a set of data description entries which 
describe the characteristics of a particular record. Each data description 
entry consists of a level—number followed by a data—name if required, 
followed by a series of independent clauses as required. A record 
description has a hierarchical structure and therefor the clauses used with 
an entry may vary considerably, depending upon whether or not it is followed 
by subordinate entries. The structure of a record description is defined in 
CONCEPTS OF LEVELS in Chapter 2 while the elements allowed in a record 
description are shown in the DATA DESCRIPTION—COMPLETE ENTRY SKELETON in 
Chapter 3. 


THE FILE DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 

The file description furnishes information concerning the physical 
structure, identification, and record names pertaining to a given file. 

General Format 


FD file-name 

f; BLOCK CONTAINS integer-2 j RECORDS \ 

\ CHARACTERS f 

[; RECORD CONTAINS integer-3 TO. integer-4 CHARACTERS] 

; LABEL ( RECORD IS \ ( STANDARD ) 

) RECORDS ARE) ) OMITTED f 

VALUE OF implementor-name-1 IS literal-1 

[, implementor-name-2 IS literal-2] ... 

; DATA ( RECORD IS ) data-name-3 [, data-name-4] 

) RECORDS ARE f 




(r- 


Syntax Rules v 

1. The level indicator FD identifies the beginning of a file descripton 
and must precede the file-name. 

2. The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is immaterial. All' clauses are 
optional when the ANS switch is unset. 

3. One or more record description entries must follow the file description 
entry. 

THE BLOCK CONTAINS CLAUSE 
Function 

The BLOCK CONTAINS clause specifies the size of a physical record. 


General Format 


BLOCK CONTAINS integer-2 ( RECORDS \ 

\ CHARACTERS f 


General Rules 



THE DATA RECORDS CLAUSE 
Function 


The DATA RECORDS clause serves only as documentation for the names of 
data records with their associated file. 


General Fo rmat 
DATA 


RECORD IS ) data-name-1 [, data-name-2] 
RECORDS ARE f 


Syntax Rule 

Data-name-1 and data-name-2 are the names of data records and must have 

01 level-number record descriptions, with the same names, associated 
with them. 

General Rule 

!Xhe„ .OAIA,.RECO^gJglag^^la^peciflec r ..fori^ ^c3j5£nrat^g a7p u^oies ^brtLy2 
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THE LABEL RECORDS CLAUSE 

■ —\ 

Function 

The LABEL RECORDS clause specifies whether labels are present. 

General Format 

LABEL C RECORD IS ) (STANDARD ) 

) RECORDS ARE) )OMITTED / 

Syntax Rule 

This clause is required in every file description entry, when the_ANS switch 
lapsed 

General Rule 

ThiaT clause is “usedr' Earl 7 docuin ieSt StSit' purposejrgStjp, 

J t 

THE RECORD CONTAINS CLAUSE 
Function 

The RECORD CONTAINS clause specifies the size of data records. 

Format 

RECORD CONTAINS integer-1 TO integer-2 CHARACTERS 


General Rule 

The size of each data 'record is completely defined within the record 
description entry, therefore this clause is never required. 

The " RECOKCr CONTAINS' clause' is ¥pecified for documentation purposes ^ 

Ottly.4 sJ) 
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THE VALUE OF CLAUSE 


Function 


The VALUE of clause specialises the description of an item in the label 
records associated with a file. 

General Format 

VALUE OF data-name-1 IS literal-1 

[,data-name-2 IS llteral-2] 

Syntax Rules 


1. Data-name-1, data-name-2, etc, should be qualified when necessary, but 
cannot be subscripted or indexed, nor can they be items described with 
the USAGE IS INDEX clause 

2. Data-name-1, data-name-2 etc, must be in the Working-Storage Section 
General Rules 


1 . 


® i* for doonaentatioa purposes only. 


A figurative constant may be substituted in the format 
literal is specified. 


above wherever a 


2 . 





PROCEDURE DIVISION IN THE RELATIVE 1-0 MODULE 


THE CLOSE STATEMENT 
Function. 

The CLOSE statement terminates 
Sdr* documental pu rposes oitlyj 

General Format 

CLOSE file-name-1 [WITH LOCK ] 

Syntax Rule 

The files referenced in the CLOSE statement need not all have the same 
organisation or access. 

General Rules 

1. A CLOSE statement may only be executed for a file in an open mode. 

2. The action taken if a file is in the open mode when a STOP RUN 
statement is executed is to close the file. The action taken for a 
file that has been opened in a called program and not closed in that 
program prior to the execution of a CANCEL statement for the program is 
to close the file. 

3. If a CLOSE statement has been executed for a file, no other statement 
can be executed that references that file, either explicitly or 
implicitly, unless an intervening OPEN statement for that file is 
executed. 

Following the successful execution of a CLOSE statement, the record 
area associated with file—name is no longer available. The 
unsuccessful execution of such a CLOSE statement leaves the 
availability of the record area undefined. 


the processing of files. 


[■ 


file-name-2 [WITH LOCK] 
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THE DELETE STATEMENT 


Function 


The DELETE statement logically removes a record from a mass 

file. 


storage 


General Format 


DELETE file-name RECORD [;INVALID KEY imperative-statement] 


Syntax Rules 

1. The INVALID KEY phrase must not be specified for a DELETE statement 
which references a file which is in sequential access mode. 

2. The INVALID KEY phrase must be specified for 2 DELETE statement which 
references 2 file which is not in sequential access mode and for which 
an applicable USE procedure is not specified 


General Rules 


1. The associated file must be open in the 1-0 mode at the time of the 

execution of this statement. (See THE OPEN STATEMENT later in this 
Chapter) 

2. For files in the sequential access mode, the last input-output 
statement executed for file-name prior to the execution of the DELETE 
statement must have been a successfully executed READ statement. The 
Operating System logically removes from the file the record that was 
accessed by that READ statement. 


f° r . a file in random dynamic access mode, the Operating System 
logically removes from the file that record identified by the contents 
of the RELATIVE KEY data item associated with file-name. If the file 
does not contain the record specified by the key, an INVALID key 
condition exists. (See The INVALID KEY Condition in this Chapter). 

After the succesful execution of a DELETE statement, the identified 
accessed ^ logically ' removed f r°m the file and can no longer be 


5. 

6 . 

7. 


The execution of a DELETE statement does not affect the contents of the 
record area associated with file-name. 

statement 1 ^ reC ° rd P ointer is not affected by the execution of a DELETE 

SLE%TTTOS° n daL th fr DEL ^ 3tatem *nt causes the value of the specified 
ETLE STATUS data item, if any, associated with the file-name to be 
updated. See 1-0 STATUS in this chapter. 
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THE OPEN STATEMENT 


Function 


The OPEN statement initiates the processing of files. It also performs 
checking and/or writing of labels and other input-output operations. 


General Format 


OPEN 


{ INPUT file-name-1 
OUTPUT file-name-3 
I—0 file-name-5 


[,file-name-2 ...] 1 
[,file-name-4 ...] > 
[,file-name-6 ...] ) 


Syntax Rule 

The files referenced in the OPEN statement need not all have the same 
organization or access. 


General Rules 


1. The successful execution of an OPEN statement determines the 

availability of the file and. results in the file being in an open mode. 

2. The successful execution of the OPEN statement makes the associated 
record area available to the program. 

3. Prior to the successful execution of an OPEN statement for a given 

file, no statement can be executed that references that file, either 

explicitly or implicitly. 

4. An OPEN statement must be successfully executed prior to the execution 
of any of the permissible inout-output statements. In Table 6—1, ’X' 
at an intersection indicates that the specified statement, used in the 
access mode given for that row, may be used with the relative file 
organisation and the open mode given at the top of the column. 



Table 6-1. Permissible Combinations of Statements and Open Modes for 
Relative I/O 


File Access 
Mode 

Statement 

Open Mode 

Input 

Output 

Input-Output 

Sequential 

READ 

X 


X 


WRITE 


X 



REWRITE 



X 


START 

X 


X 


DELETE 



X 

Random 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 



X 


START 





DELETE 



X 

Dynamic 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 



X * 


START 

X 


X 


DELETE 



X 


5. A file may be opened with the INPUT, OUTPUT, AND 1-0 phrases in the 
same program. Following the initial execution of an OPEN statement for 
a file, each subsequent execution for that same file must be preceded 
by the execution of a CLOSE statement, for that file. 

6. Execution of the OPEN statement does not obtain or release the first 
data record. 


The file description entry for file-name-1, file-name-2, file-name-5 or 
file-name-6 must be equivalent to that used when this file was created. 

For files being opened with the INPUT or 1-0 phrase, the OPEN statement 
sets the current record pointer to the first record 
currently existing within the file. If no records exist in the file, 
^A^ CUrreQt record P° inte r is set such that the next executed Format 1 
READ statement for the file will result in an AT END condition. If the 
file does not exist, INPUT will cause an error status. 


9 . 


The 1-0 phrase permits the opening of a file for both input and output 
operations. If the file does not exist, it will be created. 
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10 . 


spLifUd s m. CUt i? ° £ " ° PEN stat “” e « with the OUTPUT phrase 

Me contains 3 no^data records If a fiL ofth ^ —>«*««< 

will be deleted. If write protected, an ^rror" 1S ' S “ 


J 


% 

J 
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THE READ STATEMENT 


Function 


For sequential access, the READ statement makes available the next logical 
record from a file. For random access, the READ statement makes available a 
specified record from a disk file. 

General Format 


Format 1 


READ file-name [NEXT] RECORD [INTO identifier] [; ATQTO imperative-statement] 
Format 2 


READ file-name RECORD [ INTO identifier] [; INVALID KEY imperative-statement] 

Syntax Rules 

1. The INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. The 
storage area associated with identifier and the record area associated 
with file—name must not be the same storage area. 

2. Format 1 must be used for all files in sequential access mode. 

3. The NEXT phrase must be specified for files in dynamic access mode, 
when records are to be retrieved subsequentially. 

4. Format 2 is used for files in random access mode or for files in 
dynamic access mode when records are to be retrieved randomly. 

5. The INVALID KEY phrase or the AT END phrase must be specified if no 
applicable USE procedure is specified for file-name. 

General Rules 


1. The associated files must be open in the INPUT or 1-0 mode at the time 
this statement is executed. See THE OPEN STATEMENT in this Chapter 

2. The record to be made available by a Format 1 READ statement is 
determined as follows: 


a. The record, pointed to by the current record pointer, is made 
available provided that the current record pointer was positioned 
by the START or OPEN statement and the record is still accessible 
through the path indicated by the current record pointer; if the 
record is no longer accessible, which may have been caused by the 
deletion of the record, the current record pointer is updated to 
point to the next existing record in the file and that record is 
then made available. 


b. 


If the current record pointer was positioned by the execution of 
previous READ statement, the current record pointer is updated 
point to the next existing record in the file and then that 
is made available. 




The execution of the READ statement causes the value of the FILE STATUS 
data item, if any, associated with file-name to be updated. (See 1-0 
Status in this Chapter). 

Regardless of the method used to overlap access time with processing 
time, the concept of the READ statement is unchanged in that a record 
is available to the object program prior to the execution of any 

statement following the READ statement. 

When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalant to an implicit redefinition of the area. The 
contents of any data items which lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
READ statement. 

If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement without the CORRESPONDING 
phrase. The implied MOVE does not occur if the execution of the READ 
statement was unsuccessful. Any subscripting or indexing associated 
with identifier is evaluated after the record has been read and 
immediately before it is moved to the data item. 

When the INTO phrase is used, the record being read is available in 
both the input record area and the data area associated with 
identifier. 

If, at the time of execution of a Format 1 READ statement, the position 
of current record pointer for that file is undefined, the execution of 
that READ statement is unsuccessful. 

If, at the time of the execution of a Format 1 READ statement, no next 
logical record exists in the file, the AT END condition occurs, and the 
execution of the READ statement is considered unsuccessful. (See 1-0 
Status in this Chapter). 

When the AT END condition is recognised the following actions are taken 
in the specified order: 

a. A value is placed into the FILE STATUS data item, if specified for 
this file, to indicate an AT END condition. (See 1-0 Status in 
this Chapter) 

b. If the AT END phrase is specified in the statement causing the 
condition, control is transferred to the AT END 
imperative-statement. Any USE procedure specified for this file 
is not executed. 

c. If the AT END phrase is not specified, then a USE procedure must 
be specified, either explicitly or implicitly, for this file, and 
that procedure is executed. 

When the AT END condition occurs, execution of the input-output 
statement which caused the condition is unsuccessful. 



11 . 


Following the unsuccessful execution of any READ statement, the 
contents of the associated record area and the position of the current 
record pointer are undefined. 

12. When the AT END condition has been recognised, a Format 1 READ 

statement for that file must not be executed without first executing 
one of the following: ° 

a. A successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

b. A successful START statement for that file. 

c. A successful Format 2 READ statement for that file. 

13. For a file for which dynamic access mode is specified, a Format 1 READ 
statement with the NEXT phrase specified causes the next logical record 
to be retrieved from the file as described in general rule 2. 


14. 


If the RELATIVE KEY phrase is specified, the execution of a Format 1 
READ statement updates the contents of the RELATIVE KEY data item such 

’ ba * H contains the relative record number of the record made 
available. 


15 . 


e execution of a Format 2 READ statement sets the current record 
pointer to, and makes available, the record whose relative record 
11 • 1S contained in the data item named in the RELATIVE KEY 

c ° ndl ^ on exlsts a nd execution of the READ statement is unsuccessful 
(See The INVALID KEY Condition in this Chapter). 



THE REWRITE STATEMENT 


■■-'N 

Function 

The REWRITE statement logically replaces a record existing in a disk file. 


General Format 

REWRITE record-name [ FROM identifier] [; INVALID KEY imperative-statement] 


Syntax Rules 

1. Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the File Section of the 
Data Division. 

3. The INVALID KEY phrase must be specified in the REWRITE statement for 
files in the random or dynamic access mode for which an appropriate USE 
procedure is not specified. 


General Rules 

1. The file associated with record-name must be open in the 1-0 mode at 
the time of execution of this statement. (See THE OPEN STATEMENT in 
this Chapter). 

2. For files in the sequential access mode, the last input-output 

statement executed for the associated file prior to the execution of 
the REWRITE statement must have been a successfully executed READ 

statement. The Operating System logically replaces the record that was 
accessed by the READ statement. 

3. The number of character positions in the record referenced by 

record—name must be equal to the number of character positions in the 
record being replaced. 

4. The logical record released by a successful execution of the REWRITE 

statement is no longer available in the record area. 

5. The execution of a REWRITE statement with the FROM phrase is equivalent 
to the execution of: 

MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement without the 
FROM phrase. The contents of the record area prior to the execution of 
the implicit MOVE statement have no effect on the execution of the 

REWRITE statement. 

6. The current record pointer is not affected by the execution of a 

REWRITE statement. 
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The execution of the REWRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 STATUS in this Chapter). 

For a file accessed in either random or dynamic access mode, the 
Operating System logically replaces the record specified, by the 
contents of the RELATIVE KEY data Item associated with the file. If 
the file does not contain the record specified by the key, the INVALID 
KEY condition exists. (See THE INVALID KEY CONDITION in this Chapter). 
The updating operation does not take place and the data in the record 
area is unaffected. 


THE START STATEMENT 


Function 

The START statement provides a basis for logical positioning within a 
relative file, for subsequent sequential retrieval of records. 


General Format 


START file-name KEY 


IS EQUAL TO \ 

IS =* 

IS GREATER THAN f 

IS > | data-name 

IS NOT LESS THAN | 

i IS NOT < / 


[> INVALID KEY imperative-statement] 


NOTE: The required relational characters ’>’, and '<’ and ’ = ’ 

are not underlined to avoid confusion with other symbols 
such as '>' (greater than or equal to). 


Syntax Rules 


1. File-name must be the name of a file with sequential or dynamic access! 

2. Data-name may be qualified. 

0 

3. The INVALID KEY phrase must be specified if no applicable USE procedure 
is specified for file-name. 


4. Data-name, if specified, must be the data item specified in the 
RELATIVE KEY phrase of the associated file control entry. 

General Rules 


^'-*-^ e ~ name must be open in the INPUT or I—0 mode at the time that the 
START statement is executed.’ (See THE OPEN STATEMENT in this Chapter). 

If the KEY phrase is not specified the relational operator ’IS EQUAL 
TO’ is implied. 

The type of comparison specified by the relational operator in the KEY 
phrase occurs between a key associated with a record in the file 
referenced by file-name and a data item as specified in general Rule 5. 

a. The current record pointer is positioned to the first logical 
record currently existing in the file whose key satisfies the 
comparison. 

b. If the comparison is not satisfied by any record in the file, an 
INVALID KEY condition exists, the execution of the START statement 
is unsuccessful, and the position of the current record pointer is 
undefined. (See The INVALID KEY Condition in this Chapter). 
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The execution of the START statement causes the value of the FILE 
STATUS data item, if any, associated with file—name to be updated. (See 
1-0 STATUS in this Chapter). 

The comparison described in general rule 3 uses the data item 
referenced by the RELATIVE KEY clause associated with file-name. 



THE USE STATEMENT 


Function 


The USE statement specified procedures for input-output error handling that 
are in addition to the standard procedures provided by the input-output 
control system. 


General Format 


USE AFTER STANDARD 

EXCEPTION ' 

PROCEDURE ON . 

r 

file-name-1 

INPUT 

OUTPUT 


ERROR 


1-0 


L 


J 


Syntax Rules 

1. A USE statement, when present, must immediately follow a section header 
in the declaratives section and must be followed by a period followed 
by a space. The remainder of the section must consist of zero, one or 
more procedural paragraphs that define the procedures to be used. 

2. The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 

General Rules 

1. If the INVALID KEY or AT END phrases have not been specified in the 
input-output staement, the designated procedures are executed by the 
input-output system after completing the standard input-output error 
routine, or upon recognition of the INVALID KEY or AT END conditions. 

2. After execution of a USE procedure, control is returned to the invoking 
routine. 

3. Within a USE procedure, there must not be any reference to any 

nondeclarative procedures. Conversely, in the nondeclarative portion 

there must no reference to procedure—names in the delcarative portion, 
except that PERFORM statements may refer to a USE statement or to the 
procedures associated with such a USE statement. 

4. Within a USE procedure, there must not be the execution of any 

statement that would cause the execution of a USE procedure that had 
previously been invokved and had not yet returned control to the 

invoking routing. 
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THE WRITE STATEMENT 


Function 


The WRITE statement 
file. 


releases a logical record for an output or input-output 


General Format 


WRITE record-name [ FROM identifier] [; INVALID KEY imperative-statement] 


Syntax Rules 

1* Record-name and identifier must not reference the same storage area. 

2. The record-name is the name of a logica record in the File Section of 
the Data Division. 

3. The INVALID KEY phrase must be specified if an applicable USE procedure 
is not specified for the associated file. 


General Rules 


1. The associated file must be open in the OUTPUT or 1-0 mode at the time 
of the execution of this statement. (See THE OPEN STATEMENT Chapter). 

2. The logical record released by the execution of the WRITE statement is 
T I ^ TrT l° n8er availabl e in the record area unless the execution of the 
WRITE statement is unsuccessful due to an INVALID KEY condition. 


3. 


The results of the execution of the WRITE 
phrase is equivalent to the execution of 


statement with the FROM 


a. The statement: 


MOVE identifier TO record-name 

according to the rules specified for the MOVE statement, followed 
by: 


b. 


The same WRITE statement without the FROM phrase. 


The contents of the record 
implicit MOVE statement have 
WRITE statement. 


area prior to the execution of 'the 
no effect on the execution of this 


4. 


After execution of the WRITE statement is complete, the 
information in the area referenced by identifier is available 
even though the information in the area referenced by record-name 
may not be. (See general rule 2 above). 


The current record pointer is 
statement. 


unaffected by the execution of 


a WRITE 
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The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
I-Q Status in this Chapter). 

The maximum record size for a file is established at the time the file 
is created and must not subsequently be changed. 

The number of character positions on a mass storage device required to 
store a logical record in a file may or may not be equal to the number 
of character positions defined by the logical description of that 
record in the program. 

The execution of the WRITE statement releases a logical record to the 
operating system. 

When a file is opened in the output mode, records may be placed into 
the file by one of the following: 

a. If the access mode is sequential, the WRITE statement will cause a 
record to be released to the Operating System. The first record 
will have a relative record number of one and subsequent records 
released will have relative record numbers of 2, 3, 4, ... If the 
RELATIVE KEY data item has been specified in the file control 
entry for the associated file, the relative record number of the 
record just released will be placed into the RELATIVE KEY data 
item by the Operating System during execution of the WRITE 
statement. 

b. If the access mode is random or dynamic, prior to the execution of 
the WRITE statement the value of the RELATIVE KEY data item must 
be initialised in the program with the relative record number of 
be associated with the record in the record area. That record is 
then released to the Operating System by execution of the WRITE 
statement. 

When a file is opened in the l-O mode and the access mode is random or 
dynamic, records are to be inserted in the associated file. The value 
of the RELATIVE KEY data item must be initialised by the program with 
the relative record number to be associated with the record in the 
record area. Execution of a WRITE statement then causes the contents 
of the record area to be released to the Operating System. 

The INVALID KEY condition exists under the following circumstances: 

a. When the access mode is random or dynamic, and the RELATIVE KEY 
data item specifies a record which already exists in the file, or 

b. When an attempt is made to write beyond the externally defined 
boundaries of the file. 

When the INVALID KEY condition is recognised, the execution of the 
WRITE statement is unsuccessful, the contents of the record area are 
unaffected, and the FILE STATUS data item, if any, of the associated 
file is set to a value indicating the cause of the condition. 
Execution of the program proceeds according to the rules stated in The 
INVALID KEY Condition in this Chapter see also I-Q Status in this 
Chapter). 



CHAPTER 7 


INDEXED INPUT AND OUTPUT 


INTRODUCTION TO THE INDEXED 1-0 MODULE 

- - 'V- 

The Indexed 1-0 module provides a capability to access records of a 
mass storage file In either a random or sequential manner. Each record in 
an indexed file is uniquely identified by the value of one or more keys 
within that record. 

LANGUAGE CONCEPTS 

Organisation 


A- file whose organisation is indexed is a mass storage file in which 
data records may be accessed by the value of a key. A record description 
includes a key data item, which is associated with an index. Each index 
provides a logical path to the data records according to the contents of a 
data item within each record which is the. reco-rd key, for that index. 


The data item named in the RECORD KEY clause of the file control entry 
for a file is the record key for that file. For purposes of inserting, 
updating and deleting records in a file, each record is identified solely by 
the value of its record key. This value must, therefore, be unique and must 
^ not be changed when updating the record. The key length must not exceed 
32 bytes. 


Access Modes 

In the sequential access mode, the sequence in which records are 
accessed is the ascending order of the record key values. The order of 

retrieval of records within a set of records having duplicate record key 
values is the order in which the records were written into the set. 

In the random access mode, the sequence in which records are accessed 
is controlled by the programmer. The desired record is accessed by placing 
the value of its record key in a record key data item. 

In the dynamic access mode, the programmer may change at will from 
sequential access to random access using appropriate forms of Input-output 
statements. • 

Current Record Pointer 

The current record pointer is a conceptual entity used in this document 
to facilitate specification of the next record to be accessed within a given 
file. The concept of the current record pointer has no meaning for a file 
opened only in the output mode. The setting of the current record pointer 
is affected only by the OPEN, START and READ statements. 
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1-0 Status 

is placedbint^the^pecifie^two-character^d^t *. f Ue , COntro1 entr 7. * value 

an OPEN, CLOSE, READ WRITE REWRTTF m-t p-l * 3 lt8m durin § the execution of 

any applicable USE procedure is executed to ^d Statement and before 
the status of that input-output operation! indlcate to the COBOL program 

Status Key 1 

as st«L^ri S U h Ys"Vt% P o 0 l“/ 1 °" ° f th % FI “ STAIDS ^ too™ 

completion of the input-output operation”" 6 ^ tha follo “ ln 8 ‘'-“editions upon 

’O' - Successful Completion 
’1’ - At End 
*2' - Invalid Key 
3' - Permanent Error 
'9 f - Operating System Error Message 


The meaning of the above indications are as follows: 

The input-output 


0 - Successful Completion, 
successfully executed. 


statement was 


1 - 


2 - 


At End. The Format 1 READ statement was unsuccessfully executed 

“coVr^tsIn^'Ar ‘ “ ne * logical 


was 


unsuccessfully 


3 - 


Invalid Key. -The input-output statement 
executed as a result of one of the following: 

Sequence Error 
Duplicate Key 
No Record Found 
Boundary Violation 

thrresult Er of 0r a*n f*® dnput ~ output statement was unsuccessful as 

error or r ? input-output error, such as data check, parity 
error, or transmission error. * * 


’' -S-SI-r-r- .-.‘rrss.s-c 

the v2ue Va of U Tt f \ t3tU f k 7 11 ° r b7 S ^ UUd combinations of 
value of status key 1 and status key 2. 

Status Key 2 

as status^fey^f P ° sitlon ° f the FIP -E STATUS data item is known 

y and is used to further describe the results of 
input-output operation. This character will contain a value as follow^ 

“eration Urt th. r n 1 f° r " a J lon , is mailable concerning the input-output 
peration, then status key 2 contains a value of 'O’. 


'•'N 


% 


j 
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When status key 1 contains a value of ’O' indicating a successful 

completion, status key 2 may contain a value of *2’ indicating a 

duplicate key. This condition indicates one of two possibilities: 

1. For a READ statement, the key value for the current key of 
reference is equal to the value of that same key ill the next 
record within the current key of reference. 

2 For a WRITE or REWRITE statement, the record just written created 
a duplicate key value for at least one alternate record key for 
which duplicates are allowed. 

3. When status key 1 contains a value of '2' indicating an INVALID 
KEY condition, status key 2 contains values to designate the cause 
of that condition as follows: 

1 Indicates a sequence error for a sequentially accessed 
indexed file. The ascending sequence requirements of 
successive record key values have been violated (see The 
WRITE Statement later in this Chapter), or the prime record 
key value has been changed by the-COBOL program■between the 
successful execution of a READ statement and the execution of 
the next REWRITE statement for that file. 

2 Indicates a duplicate key value. An attempt has been made to 
write or rewrite a record that would create a duplicate key 
in an Indexed file. 

3 Indicates no record found. An attempt has been made to 

access a record, identified by a key, and that record does 
not exist in the file. 

4 Indicates a boundary violation. An attempt has been made to 
write beyond the externally defined boundaries of an indexed 
file. This is usually treated as a fatal error by Operating 
Systems. 

When status key 1 contains, a value of '9 f the value of status key 2 is 
the Operating System Error Message number. 

Valid Combinations of Status Keys 1 and 2 

The valid permissible combinations of the value of status key 1 and 
status key 2 are shown in the following table. An ’X' at an intersection 
indicates a valid permissible combination. 
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Status Key 1 


Status Key 2 

No Further 
Information 
(0) 

Sequence 

Error 

(1) 

Duplicate 

Key 

(2) 

No Record 
Found 
(3) 

Boundary 

Violation 

(4) 

Successful 

X 





Completion (0) 



X 



At End (1) 

X 





Invalid Key (2) 


X 

X 

X 

X 

Permanent 






Error (3) 

X 





Implementor 





-r 

Defined (9) 

Operating System Error Message Number 



The INVALID KEY Condition 


the Operating System 


ziiirr£°- £ a 

rirL a r P j~- ™ e 

*' «£”%££! ^^■£ 2 t £ n “ *£; «■--- - 

cfndmon^fr^ 13 s P ecified ln the statement causing the 

ndition, control is transferred to the INVAT TT) vw ,• 

statement. Any USE procedure specified for this file is^ot S^utS 
When the INVALID KEY condition occurs ev ecnt -fnn of *»,« • 
is^ot 6 affectedl reC ° gniSed the condi ti°n is unsuccessful and P the“fiU 


2 . 




J 


The AT END Condition 


statement^" Z ‘^ST “ZZ " * ° f th * ™“* 1 « * * *BAD 

STATEMENT later in this Chapter condition, see THE READ 
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ENVIRONMENT DIVISION IN THE INDEXED 1-0 MODULE 


INPUT-OUTPUT SECTION 

The File Control Paragraph 

Function 

The FILE-CONTROL paragraph names each file and allows specification of 
other file-related information. (See also appendix F in the CIS COBOL 
Operating Guide). 


General Format 

FILE-CONTROL . file-control-entry ... 


The File Control Entry 
Function 

The file control entry names a file and may specify other file-related 
information. 


General Format 

SELECT file—name 


ASSIGN TO j external-file-name-literal) 

|file-identifier j 

I" j external-file-name-literal|"l 
(file-identifier jj 

; ORGANIZATION IS INDEXED 


; ACCESS MODE IS 

( SEQUENTIAL ) 1 
) DYNAMIC \ 

_ 

f RANDOM j 


; RECORD KEY IS data-name-1 
[; FILE STATUS IS data-name-3] 


Syntax Rules 

1. The SELECT clause must be specified first in the file control entry. 
The clauses which follow the SELECT clause may appear in any order. 

Each file described in the Data Division must be named once and only 
once as file-name in the FILE-CONTROL paragraph. Each file specified 
in the file control entry must have a file description entry in the 
Data Division. 

If the ACCESS MODE clause is not specified, the ACCESS MODE IS 
SEQUENTIAL clause is implied. 
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4. Data—name—3 must be defined in the Data Division as a two—character 
data item of the category alphanumeric and must not be defined in the 
File Section, the Report Section, or the Communication Section. 

5. The data items referenced by data-name-1 must each be defined as a data 
item of the category alphanumeric within a record description entry 
associated with that file-name. 

6. Neither data-name-1 can describe an item whose size is variable. (See 
THE OCCURS CLAUSE in Chapter 4). 


General Rules 

1. The ASSIGN clause specifies the association of the file referenced by 

file-name to a storage medium. See Appendix F in the CIS COBOL 
Operating Guide. The first assignment takes effect. Subsequent 

assignments within any one ASSIGN clause are for documentation purposes 
only. 

2. The ORGANIZATION clause specifies the logical structure of a file. The 
File organisation is established at the time a file is created and 
cannot subsequently be changed. 

3. When the access mode is sequential, records in the file are accessed in 
the sequence dictated by the file organisation. For indexed files this 

sequence is the order of ascending record key values within a given key 
of reference. 

4. When the FILE STATUS clause is specified, a value will be moved by the 
operating system into the data item specified by data-name-3 after the 
execution of every statement that references that file either 
explicitly or implicitly. This value indicates the status of execution 
of the statement. (See 1-0 STATUS in this Chapter). 

6. If the access mode is random, the value of the record key data item 
indicates the record to be accessed. 

7. When the access mode is dynamic, records in the file may be accessed 
sequentially and/or randomly. (See general rules 4 and 6). 

8. The RECORD KEY clause specifies the record key that is the prime record 
key for the file. The values of the prime record key must be unique 
among records of the file. This prime record key provides an access 
path to records in an indexed file. 

9. The data description of data-name-1 as well as relative locations 
within a record must be the same as that used when the file was 
created. 
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The I—0 Control Paragraph 



Function 





The I-O-CONTROL paragraph specifies the points at which rerun is to be 

established and the memory area which is to-be shared by different files. 

General Format 

I-O-CONTROL 

; RERUN ON /file-name-1 \ EVERY ( integer-1 RECORDS OF file-name-2 

\ implementor-name/ <integer-2 CLOCK-UNITS 

(condition-name 

C’ SAME AREA FOR file-name-3 1 , file-name-4 j ... J ... 

Syntax Rules 

1. The I-O-CONTROL paragraph is optional. ; The whole clause is for 

documentation' purposes only when-present. 

2. File—name—1 must be a sequentially organised file. 

3. When either the integer-1 RECORDS clause or the integer-2 CLOSE-UNITS 
clause is specified, implementor-name must be given in the RERUN 
clause. 

4. When multiple integer-1 RECORDS clauses are specified, no two of them 
may specify the same file-name-2. 

5. Only one RERUN clause containing the CLOCK-UNITS clause may be 

specified. 

6. More than one SAME clause (SAME AREA) may be included in a program but 

a file-name must not appear in more than one SAME AREA clause. 

7. The files- referenced in the. SAME. AREA 1 clause nee4 not all havej th.e same 

organisation or access. 

General Rules 

• .The RERUN clause is treated as for documentation purposes only. 

The SAME AREA clause is treated as for documentation purposes only. 
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DATA DIVISION IN THE INDEXED I-Q MODULE 


FILE SECTION 


Is followed hv a f ji 0 a j ... ° t - LJ - on * ■‘■He rile Section header 

fF D X T X 7 a description entry consisting of a level indicator 

specify the XT X S ., erieS ° f -^ndant clauses. The FDclauses 

absence of label records* thTvTl , phy . Sical records ’ the presence or 

t u- na „ a , records, the value of implementor-defined label items and 

terminated by a perfol ^ the file ‘ The “seif is 


RECORD DESCRIPTION STRUCTURE 

wM . A d reC °T description consists of a set of data description entries 

hich describe the characteristics of a particular record! Each data 

description entry consists of a level-number followed by a data-nJ ? 

required followed by a series of independent clauses as required. A record 

escription has a hierarchical structure and therefore the clauses used with 

bv TbXdTV 317 considerabl F» depending upon whether or not it is followed 

COHORTS OF L e ETOL S t S - S “ U f ° f * r “° rd d ««ipti»" i» defined 2 
CONCEPTS OF LEVELS in Chapter 2 while the elements allowed in a record 

Chapter**3T 316 ^ ^ ^ DATA DESCRIPTI0N ~ COMPLETE ENTRY SKELETON in 


THE FILE DESCRIPTION - COMPLETE ENTRY SKELETON 
Function 

The file description furnishes information concerning the Dhvsical 
structure, identification, and record names pertaining to a given/file. 

General Format 

FD file—name 

f*; BLOCK CONTAINS integer-2/ RECORDS )'[ 

L lCHARACTERS/J 

[, RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 


;LABEL 


( RECORD IS ) ( STANDARD ) 

1 RECORDS ARE f ( OMITTED / 


j VALUE OF data-name-1 IS literal-1 

[,data-name-2 IS literal-2] ... 

DATA [RECORD IS ) data-name-3 [,data-name-4] 
(RECORDS ARE/ 


Syntax Rules 


1 . 


The level indicator FD identifies the beginning of a file 
and must precede the file-name. 


description 
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2 . 


The clauses which follow the name of the file are optional in many 
cases, and their order of appearance is immaterial. All" clauses are 
optional when the MSI switch is. set on. 

°ne or more record description entries must follow the file description 
entry. 


THE BLOCK CONTAINS CLAUSE 
Function 


The BLOCK CONTAINS clause specifies the size of a physical record. 


General Format 


BLOCK CONTAINS integer-2/ RECORDS ) 

(CHARACTERS j 


General Rule 




THE DATA RECORDS CLAUSE 
Function 


The DATA RECORDS clause serves only as documentation for the 
records with their associated file. 


names of 


General Format 


DATA 


RECORD IS ) data-name-1 [, data-name-21 ... 
RECORDS ARE ) 


Syntax Rules 


^ ata—aame ~l and data—name—2 are the 
01 level-number record descriptions 
with them. 


names of data records and 
, with the same names. 


must have 
associated 


General Rules 


1. The presence of more than one data-name indicates that the flip 

record. record, Ay be of 

ufre e d rl 2 « e - Th **** «. 


2 . 


Conceptually, all data records 
is in no way altered by the 
record within the file. 


within a file share the same area. This 
presence of more than one type of data 
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THE LABEL RECORDS CLAUSE 


Function 


The LABEL RECORDS clause specifies whether labels are present. 


General Format 


LABEL ( RECORD IS \ ( STANDARD) 

) RECORDS ARE) 1 OMITTED / 

General Rule 



THE RECORD CONTAINS CLAUSE 
Function 

The RECORD CONTAINS clause specifies the size of data records. 


General Format 


RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS 


General Rule 

The size of each data record is completely defined within the record 
description entry, therefore this clause i s never requ ired. iS B R S & I C " 




THE VALUE OF CLAUSE 
Function 

The VALUE OF clause specialises the description of an item in the label 
records associated with a file. 

General Format 

VALUE OF data-namel IS literal-1 

[,dataname2 IS literal-2] ... 


General Rules 


1 . 


'THTs^cISSe^Ti” 


purposes onJ 


A figurative constant may be substituted in the format above wherever a 
literal is specified. 


2 . 



PROCEDURE DIVISION IN THE INDEXED 1-0 MODULE 


THE CLOSE STATEMENT 
Function 


The CLOSE statement terminates the processing of files. The. LOCK 
phrase is for documentation purposes only. 


General Format 

CLOSE file-name-1 WITH LOCK ] [, file-name-2 [WITH LOCK ] 

Syntax Rule 

The files referenced in the CLOSE statement need not all have the same 
organisation or access. 

General Rules 


A CLOSE statement may only be executed for a file in an open mode. 

The action taken if a file is in the open mode when a STOP RUN 
statement is executed is to close the file. The action taken for a file 
that has been opened in a called program and not closed in that program 
prior to the execution of a CANCEL statement for that program is to 
close the file 

If a CLOSE statement has- been executed for a file, no other statement 
can be executed that references that file, either explicitly or 
implicitly, unless an intervening OPEN statement for that file is 
executed. 

Following the successful execution of a CLOSE statement, the record are 
associated with file—name is no longer available. The unsuccessful 
execution of such a CLOSE statement leaves the availability of the 
record axea- undefined. 
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THE DELETE STATEMENT 


Function 


The DELETE statement logically removes a record from a file. 


General Format 

DELETE file-name RECORD [; INVALID KEY imperative-statement] 

Syntax Rules 

I 

1. The INVALID KEY phase must not be specified for a DELETE statement 

which references a file which is in sequential access mode. 

2. The INVALID KEY phrase must be specified for a DELETE statement which 

references a file which is not in sequential access mode and for which 
an applicable USE procedure is not specified. 

General Rules 


1. The associated file must be open in 1-0 mode at the time of the 

execution of this statement. (See THE OPEN STATEMENT later in this 
Chapter). 

2. For files in the sequential access mode, the last input-output 

statement executed for file-name prior to the execution of the DELETE 
statement must have been a successfully executed READ statement. The 

record that was accessed by that READ statement is logically moved from 

the file. 

3. For a file in random or dynamic access mode, the record identified by 
the contents of the record key data item associated with file-name is 
logically removed from the file. If the file does not contain the 
record specified by the key, an INVALID KEY condition exists. (See THE 
INVALID KEY CONDITION in this Chapter). 

4. After the successful execution of a DELETE statement, the identified 
record has been logically removed from the' file and can no longer be 
accessed. 

5. The execution of a DELETE statement does not affect the contents of the 
record area associated with file-name. 

6. The current record pointer is not affected by the execution of a DELETE 
statement. 

7. The execution of the DELETE statement causes the value of the specified 
FILE STATUS data item, if any, associated with file-name to be updated. 
(See 1-0 STATUS in this Chapter). 
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THE OPEN STATEMENT 


Function 


The OPEN statement initiates the processing of files. It also performs 
checking and/or writing of labels and.other input-output operations. 


General Format 


OPEN 


{ INPUT file-name-1 [,file-name-2] 

OUTPUT file—name—3' [,file—name—4] 

1-0 file-name-5 [,file-name-6] ... 




Syntax Rules 

1. The files referenced in the OPEN statement need not all have the same 
organisation or access. 

General Rules 


The successful execution of the OPEN statement determines the 
availability of the file and results in the file being in an open mode. 

The successful execution of the OPEN statement makes the associated 
record area available to the program. 

Prior to the successful execution of an OPEN statement for a given 
file, no statement can he executed that references that file, either 
explicitly or implicitly. 

An OPEN statement must be successfully executed prior to the execution 
of any of the permissible input-output statements. In Table 2, 
Permissible Statements, 'X f at an intersection indicates that the 
specified statement, used in the access mode given for that row, may be 
used with the indexed file organisation and the open mode given at the 
top of the column. 
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Open Modes for 


Table 7-1. Permissable Combinations of Statements and 
Indexed 
I/O. 


File Access 


Open Mode 

Mode 

Statement 

Input 

Output 

Input-Output 

Sequential 

READ 

WRITE 

X 

X 

X 


REWRITE 



X 


START 

X 


X 


DELETE 



X 

Random 

READ 

X 


X 


WRITE 


X 

X 


REWRITE 

START 



X 


DELETE 



X 

Dynamic 

READ 

X 


X 


WRITE 


X 

X 

- 

REWRITE 


X 

X 


START 

X 


X 


DELETE 



X 


5. A file may be opened with the INPUT, OUTPUT and 1-0 phrases in the same 
program. Following the initial execution of an- OPEN statement for a 
fll®> each subsequent OPEN statement execution for that same file must 
be preceded by the execution of a CLOSE statement for that file. 

6. Execution of the OPEN statement does not obtain or release the first 
data record. 

7. The assigned name in the select statement for a file is processed as 
follows: 

a. When the INPUT phrase is specified, the execution of the OPEN 
statement causes the assigned name to be checked in accordance 
with the operating system conventions for opening files for input. 

b. When the OUTPUT phrase is specified, the execution of the OPEN 
statement causes the assigned name to be written in accordance 
with the operating system conventions for opening files for 
output. 

8. The file description entry for file-name-1, file-name-2, file-name-5, 
or file-name-6 must be equivalent to that used when this file was 
created. 

9. For files being opened with the INPUT or 1-0 phrase, the OPEN statement 
sets the current record pointer to the first record currently existing 
within the file. If no records exist in the file, the current record 
pointer is set such that the next executed Format 1 READ statement for 
the file will result in an AT END condition. If the file does not 
exist, INPUT will cause an error status. 
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The 1-0 phrase permits the opening of a file for both input and output 
operations. Since this phrase implies the existence of the file, it 
cannot be used if the file is being initially created. If the file 
does not exist, it will be created. 

Upon successful execution of an OPEN statement with the output phrase 
specified, a file is created. At that time the' associated' file 
contains no data records. If a file of the same name exists it will be 
deleted. If write protected, an error status occurs. 




THE READ STATEMENT 


Function 

For sequential access, the READ statement makes available the next 
logical record from a file. For random access, the READ statement makes 
available a specified record from a mass storage file. 


General Format 
Format 1 

READ file-name [NEXT] RECORD [ INTO identifier] 
[jAT END imperative-statement] 


Format 2 

READ file-name RECORD [ INTO identifier ] 
[;INVALID KEY imperative-statement] 


Syntax Rules 

1 . xhe INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. 
The storage area associated with identifier and the storage area which 
.is the record area. associated with file-name must not be the same 
storage area. 

2. Format 1 must be used for all files in sequential access mode. 

3. Format 2 is used for files in random access mode or for files in 
dynamic access mode when records are to be retrieved randomly. 

4. The INVALID KEY phrase or the AT END phrase must be specified if no 
applicable USE procedure is specified for file-name. 

General Rules 

1. The associated file must be open in the INPUT or 1-0 mode at the time 
this statement is executed. (See THE OPEN STATEMENT in this Chapter). 

2. The record to be made available by a Format 1 READ statement is 
determined as follows: 

a. The record, pointed to by the current record pointer, is made 
available provided that the current record pointer was positioned 
by the START or OPEN statement and the record is still accessible 
through the path indicated by the current record pointer; if the 
record is no longer accessible, which may have been caused by the 
deletion of the record. The current record pointer is updated to 
point to the next existing record within the established key of 
reference and that record is then made available. 
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V 


b. If the current record pointer was positioned by the execution of a 
previous READ statement, the current record pointer is updated to 
point to the next existing record in the file with the established 
key of reference and then that record is made available. 

3. The execution of the READ statement causes the value" of the PILE STATUS 
data item, if any, associated with file-name to be updated. (See 1-0 
Status in this Chapter). 

4. Regardless of the method used to overlap access time with processing 
time, the concept of the READ statement is unchanged in that a record 
is available to the object program prior to the execution of any 
statement following the READ statement. 


5. When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalent to an implicit redefinition of the area. The 

, cont ents of any data items which lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
READ statement. 

6. If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement. The implied MOVE does not 

„ occur if the execution of the READ statement was unsuccessful. Any 
subscripting or indexing associated with identifier is evaluated after 
the record has been read and immediately "before it is moved to the data 
item. 


When the INTO phrase is used, the record being read is available in 
both the input record area and the data area associated with 
identifier. 

If, at the time of execution of a Format 1 READ statement, the position 
of current record pointer for that file is undefined, the execution of 
that READ statement is unsuccessful. 

If-, at the time of the execution- of a, Format. 1. READ tamest,, no- next 
logical record exists in the file, the AT END condition'occurs, and the 
execution of the READ statement is considered unsuccessful. (See 1-0 
Status in this Chapter). -- 


10. When the AT END condition is recognised the following actions are taken 
in the specified order: 


a. A value is placed into the FILE STATUS data item, if specified for 

this file, to indicate an AT END condition. (See 1-0 STATUS in 
this Chapter). 


b. 


f J?®* AT END P hrase is specified in the statement causing the 

C A ° ntr ° T !" „ is tran sferred to the AT END imperative 
statement. Any USE procedure specified for this file is not 
executed. 


c. 


If the AT END phrase is not specified, then a USE procedure must 
be specified, either explictly or implicitly, for this file, and 
that procedure is executed. 
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When the AT END condition occurs, execution of the input-output 
statement which caused the condition is unsuccessful. 

11. Following the unsuccessful execution of any READ statement, the 
contents of the associated record area and the position of the current 
record pointer are undefined. For indexed files the key of reference 
is also undefined. 

12. When the AT END condition has been recognised, a Format 1 READ 
statement for that file must not be executed without first executing 
one of the following: 

a. A successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

b. A successful START statement for that file. 

c. A successful Format 2 READ statement for that file. 

13. For a file which dynamic access mode is specified, a Format 1 READ 
statement with the NEXT phrase specified causes the next logical record 
to be retrieved from that file as described in general rule 2 above. 

14. For an indexed file being sequentially accessed, records having the 
same duplicate value in an alternate record key which is the key of 
reference are made available in the same order in which they are 
released by execution of WRITE statements, or by execution of rewrite 
statements which create such duplicate values. 

15. Execution of a Format 2 READ statement causes the value of the key of 
reference to be compared with the value contained in the corresponding 
data item of the stored records in the file, until the first record 
having an equal value is found. The current record pointer is 
positioned to this record which is then made available. If no record 
can be so identified, the INVALID KEY condition exists and execution of 
the READ statement is unsuccessful. (See The INVALID KEY Condition in 
this Chapter). 
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THE REWRITE STATEMENT 


Function 


The REWRITE statement logically replaces a record existing in a mass 
storage file. 


General Format 

R^ 115 record-name [ FROM identifier ] [; INVALID KEY imperative-statement] 


Syntax Rules 

1. Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the File Section of the 
Data Division. 

3. The INVALID KEY phrase must be specified in the REWRITE statement for 
files for which an appropriate USE procedure is not specified. 


General Rules 


1. The file associated with record-name must be open in the 1-0 mode at 

the time of execution of this statement. (See THE OPEN STATEMENT in 

this Chapter). - 

2. For files in the sequential access mode, the last input-output 

statement executed for the associated file prior to the execution of 
t e REWRITE statement must have been a successfully executed READ 

statement. The Operating System logically replaces the record that was 
accessed by the READ statement. 

3. The number of character positions in the record referenced by 

record-name must be equal to the number of character positions in the 
record being replaced. 

4. The logical record released by a successful execution of the REWRITE 
statement is no longer available in the record area. 

5. The execution of a REWRITE statement with the FROM phrase is equivalent 
to the execution of* 


6 . 


MOVE identifier TO record-name 

™°nht ^ ^ 6X60111:1011 of the same REWRITE statement without the 
t£f contents ° f the record area P rior the execution of 

Statenent ^ n ° *"*“ the eIeCUti °'’ of the 


^RlS r rtat^ a n C t°. rd P<>il,ter 1S n0t 3f£eCtSd b? the *—*1« •* - 



7. The execution of the REWRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 Status ). 

8. For a file in the sequential access mode, the record to be replaced is 
specified by the value contained in the prime record key. When the 
REWRITE statement is executed the value contained in the prime record 
key data item of the record to be replaced must be equal to the value 
of the prime record key of the last record read from this file. 

9. For a file in the random or dynamic access mode, the record to be 
replaced is specified by the prime record key data item. 

10. The INVALID KEY condition exists when: 

a. The access mode is sequential and the value contained in the prime 
record key data item of the record to be replaced is not equal to 
the value of the prime record key of the last record read from 
this file or, 

b. The value contained in the prime record key data item does not 
equal that of any record stored in the file, or 

c. The updating operation does not take place and the data in the 
record area is unaffected. (See The INVALID KEY Condition in this 
Chapter). 



THE START STATEMENT 


Function 

The START statement provides a basis for logical positioning within ati 
indexed file, for subsequent sequential retrieval of records. 

General Format 


IS EQUAL TO 
IS = 

IS GREATER THAN 
IS > 

IS NOT LESS THAN 
IS NOT < 


START file-name KEY 


data-name 


NOTE: 


; INVALID KEY imperative-statement 

The required relational characters *>', ’<’ and ’ = ' are not 

underlined to avoid confusion with other symbols', such' as' ’>' 
(greater than or equal to). 


Syntax Rules 


File-name must be the name of an indexed file. 

File—name must be the name of a file with sequential or dynamic access. 
Data-name may be qualified. ; 

4 

The INVALID KEY phrase must be specified if no applicable USE procedure 
is specified for file-name. 

If file-name is the name of an indexed file, and if the KEY phrase is 
specified, data-name may reference a data item specified as a record 
key associated with file-name, or it may reference any data item of 
category alpanumeric subordinate to the data-name of. a data item 
specified as a record key associated with file-name whose leftmost 
character position corresponds to the leftmost character position of 
that record key data item. 


General Rules 


File-name must be open in the INPUT or 1-0 mode at the time that the 
START statement is executed. (See THE OPEN STATEMENT in this Chapter). 

If the KEY phrase is not specified the relational operator T IS EQUAL 
TO is implied. 

The type of comparison specified by the relational operator in the KEY 
phrase occurs between a key associated with a record in the file 
by file-name and a data item as specified in general rule 5. 
If file-name references an indexed file and the operands are of unequal 
size comparison proceeds as though the longer one were truncated on 
the right such that its length is equal to that of the shorter. All 

^™^ nnUmer±C com P arison ru les apply except that the presence of the 
PROGRAM COLLATING SEQUENCE clause will have no effect on the 
comparison. (See Comparison of Nonnumeric Operands). 
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a. The current record pointer is positioned to the first logical 

record currently existing in the file whose key satisfies the 

comparison. 

b. If the comparison is not satisfied by any record in the file, an 

INVALID KEY condition exists, the execution of the START statement 
is unsuccessful, and the position of the current record pointer is 
undefined. (See The INVALID KEY Condition in this Chapter) 

4. The execution of the START statement causes the value of the FILE 

STATUS data item, if any, associated with file—name to be updated. (See 
1-0 Status ). 

5. If the KEY phrase Is specified, the comparison described in general 
rule 3 uses the data item referenced by data-name. 

6. If the KEY phrase is not specified, the comparison described in general 
rule 3 uses the data item referenced in the RECORD KEY clause 
associated with file-name. 


Upon completion of the successful execution of the START statement, a 
key of reference is established and used in subsequent Format 1 READ 
statements as follows: (See THE READ STATEMENT in this Chapter). 

a. If the KEY phrase is not specified, the prime record key specified 
for file—name becomes the key of reference. 

b. If the KEY phrase is specified, and data—name is specified as a 
record key for file-name, that record key becomes the key of 
reference. 

c. if the KEY phrase Is specified, and data-name is not specified as 
a record key for file—name, the record key whose leftmost 
character position corresponds to the leftmost character position 
of the data item specified by data-name, becomes the key of 
reference. 



If the execution of the START statement is not successful, the key of 
reference is undefined. 


y 


5 
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THE USE STATEMENT 


Function 


The USE statement specifies procedures for input—output error handling 
that are in addition to the standard procedures provided by the input-output, 
control system. 


General Format 


USE AFTER STANDARD 


( EXCEPTION ) 

\ ERROR / PROCEDURE ON 


file-narae-1 
INPUT 
OUTPUT 
1-0 


Syntax Rules 

1. A USE statement, when present, must immediately follow a section header 
in the declaratives section and must be followed by a* period followed 
by a space. The remainder of the section must consist of zero, one or 
more procedural paragraphs that define the procedures to be used. 

2. The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 


General Rules 

'!• If ihe INVALID KEY phrase on the AT END phrase have not been specified 
in the input—output statements the designated procedures are executed 
by the input-output system after completing the standard input-output 
routine upon recognition of the INVALID KEY or AT END condition. 

2. After execution of a USE procedure, control is returned to the invoking 

routine. 

Within a USE procedure, there must not be any reference to any 

nondeclarative procedures. Conversely, in the nondeclarative portion 
there must be no reference to procedure-names that appear in the 
declarative portion, except that PERFORM statements may refer to a USE 
statement or to the procedures associated with such a USE statement. 

4. Within a USE procedure, there must not be the excecution of any 

statement that would cause the execution of a USE procedure that had 

previously been invoked and had not yet returned control to the 
invoking routine. 
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THE WRITE STATEMENT 


Function 

The WRITE statement releases a logical record for an outout or 
input-output file. 


General Format 


WRITE.record-name FROM identifier ; INVALID KEY imperative-statement 


1. Record-name and identifier must not reference the same storage area. 

2. The record-name is the name of a logical record in the File Section of 
the Data Division. 

3. The INVALID KEY phrase must be specified if an applicable USE procedure 
is not specified for the associated file. 


General'Rules 

1. The associated file must be open in the OUTPUT or 1-0 mode at the time 
of the execution of this statement. (See THE OPEN STATEMENT in this 
Chapter). 

2. The logical record released by the execution of the WRITE statement is 
no longer available in the record area unless the execution of the 
WRITE statement is unsuccessful due to an INVALID KEY condition. 

3. The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of: 

a. The statement: 

MOVE identifier TO record-name 

accarding to the rules specified for the MOVE statement, followed 
by: 

b. The same WRITE statement without the FROM phrase. 

The contents of the record area prior to the execution of the 
implicit MOVE statement have no effect on the execution of this 
WRITE statement. 

After execution of the WRITE statement is complete, the 
information in the area referenced by identifier is available, 
even though the information in the area referenced by record—name 
may not be. (See general rule 2 above). 

4. The current record pointer is unaffected by the execution of a WRITE 
statement. 



The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. (See 
1-0 Status in this Chapter). 


The maximum record size for a file is established at the time the file 
is created and must, not subsequently be changed. 

The number of character positions on a mass storage device required to 
store a logical record in a file may or may not be equal to the number 
of character positions defined by the logical description of that 
record in the program. 

The execution of the WRITE statement releases a logical record to the 
operating system. 

Execution of the WRITE statement causes the contents of the record area 
to be released. The Operating System utilizes the content of the 
record keys in such a way that subsequent access of the record may be 
made based upon any of those specified record keys. 

The value of the record key mus-tr be unique within the' records- in’'fhe- 
file. 

The data item specified as the record key must be set by the program to 
the desired value prior to the execution of the WRITE statement. 

If sequential access mode is specified for the file, records must be 
released to the Operating System is ascending order of record key 
values. 

If random or dynamic access- mode is specified, records may be released 
to the Operating System in any program-specified order. 

The INVALID KEY condition exists under the following circumstances: 

a. When sequential access mode is specified for a file opened in the 
output mode, and the value of the record key is not greater than 
the.- value of the record key of the previous record, or 

b. When the file is opened in the output or 1-0 mode, and the value 
of the record key is equal to the value of a record key of a 
record already existing in the file, or 

c. When an attempt is made to write beyond the externally defined 
boundaries of the file. 

When the INVALID KEY condition is recognised the execution of the WRITE 
statement is unsuccessful, the contents of the record area are 
unaffected and the FILE STATUS data item, if any, associated with 
flie-name of the associated file is set to a value indicating the cause 
of the condition. Execution of the program proceeds according to the 
rules stated under THE INVALID KEY CONDITION (See also 1-0 Status in 
this Chapter). --- 
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CHAPTER 8 


SEGMENTATION 


INTRODUCTION TO THE SEGMENTATION MODULE 

The Segmentation module provides a capability to specify object program 
overlay requirements. 

Segmentation provides a facility for specifying permanent and 
independent segments. All sections with the same segment-number must be 
contiguous in the source program. All segments specified as permanent 
segments must be contiguous in the source program. 


GENERAL DESCRIPTION OF SEGMENTATION 

COBOL segmentation is a facility that provides a means by which the 
user may communicate with the compiler to specify object program overlay 
requirements. 

COBOL segmentation deals only with segmentation of procedures. As 
such, only the "Procedure Division is considered in determining segmentation 
requirements for an object program. 

ORGANIZATION 

Program Segments 

Although it is not mandatory, the Procedure Division for a source 
program is usually written as a consecutive group of sections, each of which 
is composed of a series of closely related operations that are designed to 
collectively perform a particular function. However, when segmentation is 
used, the entire Procedure Division must be in sections. In addition, each 
section must be classified as belonging either to the fixed portion or to 
one of the independent segments of the object program. 

Fixed Portion 

The fixed portion is defined as that part of the object program which 
is logically treated as if it were always in memory. This portion of the 
program is composed of fixed permanent segments. 

A fixed permanent segment is a segment in the fixed portion which 
cannot be overlaid by any other part of the program. 

Independent Segments 

An independent segment is defined as part of the object program which 
can overlay, and can be overlaid by another independent segment. An 
independent segment is in its initial state whenever control is transferred 
(either implicitly or explicitly) to that segment for the first time during 
the execution of a program. On subsequent transfers of control to the 
segment, an independent segment is also in its initial state when: 


8 - 1 



1. Control is transferred to that segment as a result of the implicit 
transfer of control between consecutive statements from a segment with 
a different segment-number. 

2. Control is transferred explicitly to that segment from a segment with a 
different segment-number (with the exception nated in paragraph 2 
below). 

On subsequent transfer of control to the segment, an independent 

segment is in its last-used state when: 

1* Control is transferred implicitly to that segment from a segment with a 
different segment-number (except as noted in paragraph 1). 

2. Control is transferred explicitly to that segment as the result of the 
execution of an EXIT PROGRAM statement. 


SEGMENTATION CLASSIFICATION 

Sections which are to be segmented are classified, using a system of 
segment-numbers and the following criteria: 

1. Logic Requirements - Sections which must be available for reference at 
all times, or which are referred to very frequently, are normally 
classified as belonging to one of the permanent segments; sections 
which are used less frequently are normally classified as belonging to 
one of the independent segments, depending on logic requirements. 

Frequency of Use — Generally, the more frequently a section is referred 
to, the lower its segment—number, the less frequently It is referred 
to, the higher its segment—number. 

3. Relationship to Other Sections - Sections which frequently communicate 
with one another should be given the same segment-numbers 


SEGMENTATION CONTROL 

The logical sequence of the program is the same as the physical 
sequence except, for specific transfers of control. Control may be 
transferred within a source program to any paragraph in a section; that is, 
it is not mandatory to transfer control to the beginning of a section. 
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STRUCTURE OF PROGRAM SEGMENTS 


SEGMENT-NUMBERS 

Section classification is accomplished by means of a system of 
segment-numbers. The segment-number is included in the section header. 

GENERAL FORMAT 

section—name SECTION [segment—number] 

SYNTAX RULES 

1. The segment-number must be an integer ranging in value from 0 through 
99. 

2. If the segment—number is omitted from the section header, the 
segment-number is assumed to be 0. 

3. Sections in the declaratives must contain segment-numbers less than 50. 
GENERAL RULES 

1. All sections which have the same segment-number constitute a program 

segment. All sections which have the same segment—number must be 

together in the source program. 

2. Segments with segment-number 0 through 49 belong to the fixed portion 
of the object program. All sections with segment-number 0 through 49 
must be together in the source program, and must come before 
independent segments in the program. 

3. Segments with segment-number 50 through 99 are independent segments, 
and must come after any permanent segments in the program. 
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RESTRICTIONS ON PROGRAM FLOW 


When segmentation is used, the following restrictions are placed on the 
ALTER and PERFORM statement. • 

THE ALTER STATEMENT 

A GO TO statement in a section whose segment-number is greater than or 
equal to 50 must not be referred to by an ALTER statement in a section with 
a different segment-number. 

THE PERFORM STATEMENT 


A PERFORM statement that appears in a section that is not in an 
independent segment can have within its range, in addition to any 
declarative sections whose execution is caused within that range, only one 
of the following: 


* Sections and/or paragraphs wholly contained in one or more 

non-independent segments'. 

* Sections and/or paragraph wholly contained in a single independent 
segment. 

A PERFORM statement that appears in an independent segment can have 
within its range, in addition to any declarative sections whose execution is 
caused within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 

non-independent segments. 

b. Sections and/or paragraphs wholly contained in the same 

independent segment as that PERFORM statement. 


**.-•••% ,u* v . w *; v '• 

EXTRA INTERMEDIATE CODE FILES 




When segmentation is used, extra intermediate code files are generated 
by the compiler as follows: 

filename.Inn 


— intermediate code files one for each 
independent segment. 

V •: O'.- 'C •>-: • ' \ .... - ‘ . - 

' • ' 

filename.ISR - Inter-Segment Reference table one per 


filename.Dnn 


segmented program 


Dictionary files one for each independent 
segment except the last 


where: 


filename is the name without the extension, of the principal 
intermediate code file s 


nn is a segment number that identifies the particular segment 


O — H 
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NOTE: ..^ O 

' 

The filename.Dnn files are written and used solely by the compiler, and 
need not be retained after compilation. The filename.Inn files and the 
filename.ISR file must be retained as part of the object program and 
must also be copied when the program is copied. 


n 


j 
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CHAPTER 9 


LIBRARY 

INTRODUCTION TO THE LIBRARY MODULE 

The Library module provides a capability for specifying text that is to 
be copied from a source user-library file. This is usually created using 
any suitable source text editor 

CIS COBOL libraries consist of disk files that contain source to be 
made available to the compiler. The effect of the interpretation of the 
COPY statement is to insert text into the source program, where it will be 
treated by the compiler as part of the source program. 


y - x. 




THE COPY STATEMENT 


FUNCTION 

The COPY statement incorporates text into a CIS COBOL source program. 


GENERAL FORMAT 

COPY "text-name". 


SYNTAX RULES 

1. Text-name must be a unique standard operating system file name. 

2. The COPY statement must be preceded by a space and terminated by the 
separator period. 

3. A COPY statement may occur in the source program anywhere a 
character-string or a separator may occur except that a COPY statement 
must not occur within a COPY statement. 


GENERAL RULES 

1. The compilation of a source program containing COPY statement is 
logically equivalent to processing all COPY statements prior to the 
processing of the resulting source program. 

2. The effect of processing a COPY statement is that the library text 
associated with text—name Is copied into the source program, logically 
replacing the entire COPY statement, beginning with the reserved word 
COPY and ending with the punctuation character period, inclusive. 

3. The library text is copied unchanged. 

4. If the unit identifier is not explicitly specified, default is to the 
drive from which the compiler is loaded. 
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CHAPTER 10 


DEBUG AND INTERACTIVE DEBUGGING 

INTRODUCTION 

Standard ANSI COBOL debugging provides a means by which the user can 
describe the conditions under which procedures are to be 
monitored during the execution of the object program. 

The CIS COBOL Run-Time Debug Package is an extension to ANSI COBOL that 
provides break-point facilities in the user's program. Programs may be run 
from the start until a specified break-point is reached, when control is 
passed back to the user. At this point, data areas may be inspected or 
changed. 

CIS COBOL RUN-TIME DEBUG EXTENSION 

The Run-Time debug package is entered as an option by the user and the user 
program is then tested line by line, paragraph by paragraph and so on as 
required. The commands to the package can reference procedure statements 
and data areas by means of a 4—digit hexadecimal code output by the compiler 
against each line of the compilation listing. Powerful macros of commands 
can be used to give very sophisticated debugging facilities. The precise 
details for using the package vary according to the host operating system, 
and are therefore contained in the CIS COBOL Operating Guide for your 
Operating System. J«} ..-'y~ 

STANDARD ANSI COBOL DEBUG 

The decisions of what to monitor and what information to display are 
explicitly in the domain of the user. The COBOL Debug facility simply 
provides a convenient access to pertinent information. 


The features of the language that support the COBOL Debug module are: 

* A compile time switch — WITH DEBUGGING MODE. 

* An object time switch. 

* A USE FOR DEBUGGING statement. 

* A special register — DEBUG-ITEM. 

* Debugging lines. 

The reserved word DEBUG-ITEM is the name for a special register generated 
automatically by the compiler that supports the debugging facility. Only 
one DEBUG-ITEM, is allocated per program. The names of the subordinate data 
items in DUBUG—ITEM are also reserved words. 
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COMPILE-TIME SWITCH 


The DEBUGGING MODE clause is written as part of the SOURCE-COMPUTER 
paragraph in the Environment Division. It serves as a compile-time switch 
over debugging statements written in the program. 

When DEBUGGING MODE is not specified in a program, all the debugging lines 
are compiled as if they were comment lines and their syntax is not checked. 


COBOL DEBUG OBJECT TIME SWITCH 

An object time switch dynamically activates the debugging code inserted by 
the compiler. This switch cannot be addressed in the program; it is 
controlled outside the COBOL environment. If the switch is 'on', the 
effects of any USE FOR DEBUGGING statements written in the source program 
are permitted. If the switch is 'off’, all the effects described in the USE 
FOR DEBUGGING Statement, are inhibited. Recompilation of the source program 
is not required to provide or take away this facility. 

The object time switch has no effect on the execution of the object program 
if the WITH DEBUGGING MODE clause was not specified in the source program at 
compile time. 

The switch is described in the CIS COBOL Operating Guide. 


ENVIRONMENT DIVISION IN COBOL DEBUG 
The WITH DEBUGGING MODE Clause 
Function 

The WITH DEBUGGING MODE clause indicates that all debugging sections and all 
debugging lines are to be compiled. If this clause is not specified, all 
debugging lines and sections are compiled as if they were comment lines. 

General Format 

SOURCE-COMPUTER . computer-name [WITH DEBUGGING MODE ]. 

General Rules 

1. If the WITH DEBUGGING MODE clause is specified in the SOURCE-COMPUTER 
paragraph of the Configuration Section of a program, all USE FOR 
DEBUGGING statements and all debugging lines are compiled. 

2. If the WITH DEBUGGING MODE clause is not specified in the 
SOURCE-COMPUTER paragraph of the Configuration Section of a program, 
any USE FOR DEBUGGING statements and all associated debugging sections, 
and any debugging lines are compiled as if they were comment lines. 
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PROCEDURE DIVISION IN COBOL DEBUG 


The USE FOR DEBUGGING Statement 
Function 

The USE FOR DEBUGGING statement identifies the user items that are to be 
monitored by the associated debugging section. 


General Format 

section—name SECTION [segment number]. 


USE FOR DEBUGGING ON 


/ procedure-name-11 
1 ALL PROCEDURES / 


procedure-name-2 "1 
’ ALL PROCEDURES J 


Syntax Rules 


1* Debugging section(s), if specified, must appear together immediately 
after the DECLARATIVES header. 

2. Except in the USE FOR DEBUGGING statement itself, there must be no 
reference to any non-declarative procedure within the debugging 
section. 

3. Statements appearing outside of the set of debugging sections must not 
reference procedure—names defined within the set of debugging sections. 

4. Except for the USE FOR DEBUGGING statement itself, statements appearing 
within a given debugging section may reference procedure—names defined 
within a different USE procedure only with a PERFORM statement. 

5. Procedure-names defined within, debugging sections must hot appear 
within USE FOR DEBUGGING statements. 

6. Any given procedure-name may appear in only one USE FOR DEBUGGING 
statement and may appear only once in that statement. 

7. The ALL PROCEDURES phrase can appear only once in a program. 

8. When the ALL PROCEDURES phrase is specified, procedure-name-1, 

procedure-name-2, ... must not be specified in any USE FOR DEBUGGING 
statement. 

9. References to the special register DEBUG-ITEM are restricted to 
references from within a debugging section. 


General Rules 

1. In the following general rules all references to procedure-name-1, 
apply equally to procedure-name-2. 
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Automatic execution of a debugging section is not caused by a statement 
appearing in a debugging section. 

When procedure-name-1 is specified in a USE FOR DEBUGGING statement 
that debugging section is executed: 

a. Immediately before each execution of the named procedure; 

b. Immediately after the execution of an ALTER statement which 
references procedure-name-1. 

The ALL PROCEDURES phrase causes the effects described in general rule 
4 to occur for every procedure-name in the program, except those 
appearing within a debugging section. 

The associated debugging section is not executed for a specific operand 
more than once as a result of the execution of a single statement, 
regardless of the number of times that operand is explicitly specified. 
In the case of a PERFORM statement which caused iterative execution of 
a referenced procedure, the associated debugging section is executed 
once for each iteration. 

Within an imperative statement, each individual occurrence of an 
imperative verb identifies a separate statement for the purpose of 
debugging. 

A reference to procedure—name—1 as a qualifier does not constitute 
reference to that item for the debugging described in the general rules 
ab ove. 

Associated with each execution of a debugging section is the special 
register DEBUG-ITEM, which provides information about the conditions 
that caused the execution of a debugging section. DEBUG-ITEM has the 
following implicit description: 

DEBUG-ITEM. 


02 

DEBUG-LINE 

PICTURE IS X(6). 




02 

FILLER 

PICTURE IS X 

VALUE SPACE. 




02 

DEBUG-NAME 

PICTURE IS X(30). 




02 

FILLER 

PICTURE IS X 

VALUE SPACE. 




02 

DEBUG-SUB-1 

PICTURE IS 
CHARACTER. 

S9999 SIGN 

IS 

LEADING 

SEPARATE 

02 

FILLER 

PICTURE IS X 

VALUE SPACE 




02 

DEBUG-SUB-2 

PICTURE IS 
CHARACTER. 

S9999 SIGN 

IS 

LEADING 

SEPARATE 

02 

FILLER 

PICTURE IS X 

VALUE SPACE. 




02 

DEBUG-SUB-3 

PICTURE IS 
CHARACTER. 

S9999 SIGN 

IS 

LEADING 

SEPARATE 

02 

FILLER 

PICTURE IS X 

VALUE SPACE. 




02 

DEBUG-CONTENTS 

PICTURE IS X(n). 
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Prior to each execution of a debugging section, the contents of the 
data item referenced by DEBUG-ITEM are space-filled. The contents of 
data items subordinate to DEBUG-ITEM are then updated, according to the 
following general rules, immediately before control is passed to that 
debugging section. The contents of any data item not specified in the 
following general rules remains spaces. 


Updating is accomplished in accordance with the rules for the MOVE 
statement, the sole exception being the move to DEBUG-CONTENTS when the 
move is treated exactly as if it was an alphanumeric to alphanumeric 
elementary move with no conversion of data from one form of internal 
representation to another. 

9. The contents of DEBUG-LINE is the relevant COBOL, source line number. 
This provides the means of identifying a particular source statement. 

10. DEBUG—NAME contains the first 30 characters of the name that caused the 
debugging section to be executed. 


Subscripts/indices, if any, are not entered into DEBUG-NAME. 

11. DEBUG-CONTENTS is a data item that is large enough to contain the data 
required by the following general rules. 

12* If the first execution of the first nondeclarative procedure in the 

program causes the debugging section to be executed, the following 
conditions exist: 

a. DEBUG—LINE identifies the first statement of that procedure. 

b. DEBUG-NAME contains the name of that procedure. 

c. DEBUG-CONTENTS contains ’START PROGRAM'. 

13. If a reference to procedure—name—1 in an ALTER statement causes the 
debugging section to be executed, the following conditions exist: 

a. DEBUG-LINE identifiers, the- ALTER statement that references 
procedure-name-1. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG—CONTENTS contains the applicable procedure—name associated 
with the TO phrase of the ALTER statement. 

14. If the transfer of control associated with the execution of a GO TO 
statement causes the debugging section to be executed, the following 
conditions exist: 


a. DEBUG-LINE identifies the GO TO statement whose execution 
transfers control to procedure—name—1. 

b. DEBUG-NAME contains procedure-name-1. 


15. If the transfer to control from the control mechanism associated with a 
PERFORM statement caused the debugging section associated with 
procedure-name-1 to be executed, the following conditions exist: 
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a. DEBUG-LINE identifies the PERFORM statement * that references 
procedure-name 1. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains ’PERFORM LOOP*. 

procedure—name—1 Is a USE procedure that is to be executed, the 
following conditions exisy: 

a. DEBUG-LINE identifies the statement that causes execution of the 
USE procedure. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains ’USE PROCEDURE'. 

17. If an implicit transfer of control from the previous sequential 
paragraph to procedure-name-1 causes the debugging section to be 
executed, the following conditions exist: 

a. DEBUG-LINE identifies the previous statement. 

b. DEBUG—NAME contains procedure—name—1. 

c. DEBUG-CONTENTS contains ’FALL THROUGH’. 


DEBUGGING LINES. 

A debugging line is any line with a ’D ’ in the indicator area of the line. 
Any debugging line that consists solely spaces from margin A to margin R is 
considered the same as a blank line. 

The contents of a debugging line must be such that a syntactically correct 
program is formed with or without the debugging lines being considered as 
comment lines. 

A debugging line will be considered- to have all the characteristics of a 
comment line, if the WITH DEBUGGING MODE clause is not ‘specified in the 
SOURCE-COMPUTER paragraph. 

Successive debugging lines are allowed. Continuation of debugging lines is 
permitted, except that each continuation line must contain a ’D’ in the 
indicator area, and character-strings may not be broken across two lines. 

A debugging line is only permitted in the program after the OBJECT-COMPUTER 
paragraph. 
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CHAPTER 11 


INTERPROGRAM COMMUNICATION 


INTRODUCTION TO THE INTER-PROGRAM COMMUNICATION MODULE 

The Inter-Program Communication module provides a facility by which a 
program can communicate with one or more programs. This provides a 
programmer with a modular programming capability. Each module when CALLed 
is loaded dynamically by the Run Time System. Communication is provided by: 

* The ability to transfer control from one program to another within 
a run unit 

* The ability for both programs to have access to the same data 
items. 


DATA DIVISION IN THE INTER-PROGRAM COMMUNICATION MODULE 
LINKAGE SECTION 

The Linkage Section in a program is meaningful if and only if the object 
program is to function under the control of a CALL statement, and the CALL 
statement in the calling program contains a USING phrase. 

The Linkage Section is used for describing data that is available through 
the calling program but is to be referred to in both the calling and the 
called program. No space is allocated in the program for data items 
referenced by data-names in the Linkage Section of that program. Procedure 
Division references to these data items are resolved at object time by 
equating the reference in the called program to the location used in the 
ca ^-^^- n § program. In the case of^index—names, no such correspondence is 
established. Index—names in the called and calling program always refer to 
separate indices. 

4 

Data items defined in the Linkage Section of the called program may be 
referenced within the Procedure Division of the called program only if they 
are specified as operands of the USING phrase of the Procedure Division 
header or are subordinate to such operands, and the object program is under 
the control of a CALL statement that specifies a USING phrase. 

The structure of the Linkage Section is the same as that previously 
described for the Working-Storage Section, beginning with a section header, 
followed by data description entries for noncontiguous data items and/or 
record description entries. 

Each Linkage Section record-name and noncontiguous item name must be unique 
within the called program since it cannot be qualified. Data items defined 
in the Linkage Section of the called program must not be associated with 
data items defined in the Report Section of the calling program. 

Of those items defined in the Linkage Section only data-name-1, data-name-2, 
... in the USING phrase of, the Procedure Division header, data,, items 
subordinate to these data—names, and condition—names and/or 





Index-names associated with such data-names and/or subordinate data items, 
may be referenced in the Procedure Division. 

Noncontiguous Linkage Storage 

Items in the Linkage Section that bear no hierarchic relationship to one 
another need not be grouped into records and are classified and defined as 
noncontiguous elementary items. Each of these data items is defined in a 
separate data description entry which begins with the special level-number 


The following data clauses are required in each data description entry: 

* Level-number 77 

* Data-name 

* The PICTURE clause or the USAGE IS INDEX clause 

Other data description clauses are optional and can be used to complete the 
description of the item if necessary. 
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PROCEDURE DIVISION IN THE INTER-PROGRAM COMMUNICATION MODULE 


THE PROCEDURE DIVISION HEADER 

The Procedure Division is identified by and must begin with the following 
header: 

PROCEDURE DIVISION [ USING data-name-1 [, data-name-2] .,.] 

The USING phrase is present if and only if the object program is to function 
under the control of a CALL statement, and the CALL statement in the calling 
program contains a USING phrase. 

Each of the operands in the USING phrase of the Procedure Division header 
must be defined as a data item in the Linkage Section of the program in 
which this header occurs, and it must have a 01 or 77 level-number. 

Within a called program. Linkage Section data items are processed according 
to their data descriptions given in the called program. 

When the USING phrase is present, the object program operates as if 
data-name-1 of the Procedure Division header in the called program and 
data-name-1 in the USING phrase of the CALL statement in the calling program 
refer to a single set of data that is equally available to both the called 
and calling programs. Their descriptions must define an equal number of 
character positions; however they need not be the same name. In like 
manner, there is an equivalent relationship between data-name-2, ..., in the 
USING phrase of the called program and data-name-2, ..., in the USING phrase 
of the CALL statement in the calling program. A data-name must not appear 
more than once in the USING phrase in the Procedure Division header of the 
called program; however, a given data-name may appear more than once in the 
same USING phrase of a CALL statement. 



THE CALL STATEMENT 


Function 

The CALL statement causes control to be transferred’ from one object program 
to another, within the run unit. 

General Format 


Format 1 


/identifier-1) 

Pi LL j literal-1 f f USING data-name-1 
[ ON OVERFLOW imperative-statement] 


Format 2 
CALL 


[, data-name-2] ...] 


literal-2 [USING data-name-3 [, data-name-4] ...] 


Syntax Rules 

1. Literal-1 must be a nonnumeric literal. 

Identifier—1 must be defined as an alphanumeric data item usage 
display. 

3. The USING phrase is included in the CALL statement only if there is a 
USING phrase in the Procedure Division header of the called program and 
the number of operands in each USING phrase must be Identical. 

4. Each of the operands in the USING phrase must have been defined as a 
data item in the File Section, Working-Storage Section, or Linkage 
Section, and must have a level-number of 01 or 77. 

-*• Literal—2 must be defined as a non—numeric literal or alphanumeric data 
item with a numeric value, e.g. CALL ”3" or CALL D-NAM where D-NAM is 
defined as class alphanumeric, and usage display, containing a numeric 
value. 

General Rules 

1. The program whose name is specified by the value of literal-1 or 
identifier-1 is a called intermediate code module, literal-2 is a 
called run time subroutine; the program in which the CALL statement 
appears is the calling program. 

2. The execution of a CALL statement causes control to pass to the called 
program. 

3. In format 1, a called intermediate code module is loaded from disk the 
first time it is called within a run-unit and the first time it is 
called after a CANCEL to the called program. 
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n all other entries into the called program, the state of the program 
remains unchanged from its state when last executed. This includes all 

ata fields, the status and positioning of all files, and all alterable 
switch settings. 


2 \ 3 , Call / d run tIme subr °utine is always in the state in 
which it last existed. 

If during the execution of a CALL statement, it is determined that the 
available portion of run-time memory is incapable of accomodating the 
program specified in the CALL statement, the next sequential 
instruction is executed. If ON OVERFLOW has been specified, the 
associated imperative statement is executed before the next instruction 
is executed. 


Called programs may contain CALL statements. However, a called program 
must not contain a call statement that directly or indirectly calls the 
calling program. 

7 ‘ ?! data - n f mes > specified by the USING phrase of the CALL statement, 'y' 

indicate those data items available to a calling program that may be 
referred to in the called program. The order of appearance of the 
data-names in the USING phrase of the CALL statement and the USING 
phrase in the Procedure Division header is critical. Corresponding 
data-names refer to a single set of data which is available to the 

called and calling program. The correspondence is positional, not by 
name. . In the case of index-names, no such correspondence is 

established. Index-names in the called and calling program always 
refer to separate indices. 

8. The CALL statement may appear anywhere within a segmented program. 
Therefore, when a CALL statement appears in a section with a 

segment-number greater than or equal to 50, that segment is in its last 
used state when the EXIT PROGRAM statement returns control to the 

calling program. 
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THE CANCEL STATEMENT 



Function 


The CANCEL statement releases the memory areas occupied by the referred to 
program. 


General Format 


CANCEL 


j identifier-1) 

~ identifier-2) 

\ literal-1 j 

\literal-2 /_ 


Syntax Rules 


1. 

Literal-1, literal-2, ...» must each 

be_a nonnumeric literal. 

2. 

Identifier-1, 

identifier-2, ..., 

must each be 

defined as an 


alphanumeric 

data item such that 

its value can be 

a program name. 

General Rules 





1. Subsequent to the execution of a CANCEL statement, the program referred 
to therein ceases to have any logical relationship to the run unit in 
which the CANCEL statement appears. A subsequently executed CALL 
statement naming the same program will result in that program being 
initiated in its initial state. The memory areas associated with the 
named programs are released so as to be made available for disposition 
by the operating system. 

2. A program named in the CANCEL statement must not refer to any program 
that has been called and has not yet executed an EXIT PROGRAM 
statement. 

3. A logical relationship to a cancelled subprogram is established only by 
execution of a subsequent call statement. 

^ ^ called program is cancelled either by being referred to as the 

operand of a CANCEL statement or by the termination of the run unit of 
which the program is a member. 

5. No action is taken when a CANCEL statement is executed naming a program 
that has not been called in this run unit or has been called and is at 
present cancelled. Control passes to the next statement. 
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THE EXIT PROGRAM STATEMENT 


Function 

The EXIT PROGRAM statement marks the logical end of a called program. 

General Format 

EXIT PROGRAM 

Syntax Rules 

1. The EXIT PROGRAM statement must appear in a sentence by itself. 

2. The EXIT PROGRAM sentence must be the only sentence In the paragraph. 


General Rule 


An execution of an EXIT PROGRAM statement in a called program causes control 
to be passed to the calling program. ’'Execution of an EXIT PROGRAM statement 
in a program which is not called behaves as if the statement were an EXIT 
statement. (See THE EXIT STATEMENT in Chapter 3). 



CHAPTER 12 




c 


PROGRAMMING TECHNIQUES, USEFUL HINTS AND PROGRAM SIZING 
PROGRAMMING TECHNIQUES 

Although COBOL is written in an essentially free form, the user will 
nevertheless reap many advantages from a few self-imposed disciplines. It is 
suggested that these should include the following: 

1. Use of the first 256 bytes of working-storage for variables which are 
frequently referenced will produce more compact and efficient code. 

2. Use subscripts as sparingly as possible because each subscript has a 

storage requirement approximately equal to the size of a normal 

instruction. 

3. For ACCEPT and DISPLAY the compiler generates one instruction per 
elementary item of the data-name being displayed/accepted. Therefore 
redefine a group of' fields' a’& a single" field' fox DISPLAY""' whlshfveu 
possible and avoid unnecessary numbers of small fields in ACCEPT. 

4. Use FILLER instead of a data—name for any elementary field not 
referenced explicitly because the word FILLER is compacted to one 
character in the Data Dictionary. 

5. Keep the number of digits in numeric fields as small as possible. 

6. Whenever possible move a group instead of several elementary moves. 

USEFUL HINTS 

When writing interactive programs the following facilities of CIS COBOL 

should be remembered: 

1. By use of the,, CURSOR IS facility and, the ACCEPT stAt.ewenw. ft,,, k&.'smy . fio 
program conditionally depending on the cursor position after a menu 
type of prompt. The operator need then only move the cursor to the 
option required to reply to the prompt, or just press RETURN in the 
default case. 

2. By use of the ACCEPT FROM CONSOLE facility it is easy to pass 

parameters to your program via the Run command line. See THE ACCEPT 
STATEMENT in Chapter 3. 

SIZING 

GENERAL DESCRIPTION 

There are three aspects to sizing a program; the source code* the- Data 
Dictionary and the compiled code. 

The maximum number of source statements per program is limited, firstly by 
the space available for the compiler's data dictionary and secondly that 
available to load the generated program. 
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The Data Dictionary contains an entry for every user-defined name in the 
program. Detailed info.rmation is contained in the next section. 

The maximum number of bytes available for the user’s program and work snace 
for any given configuration, can be found in the appropriate Operating 
Guide. A guide for calculating the size of the generated program is as 
follows: 


The sum of the Record size for each file in bytes 
+ the Record size for each Working-Storage record in bytes 

+ the number of characters in all Procedure Division literals 

+ 60 bytes per File 

+ 300 bytes control area 

+ 6 bytes per COBOL instruction with the following qualifiers: 

for an ACCEPT/DISPLAY statement add 3 bytes per elementary item within 
the Accepted/Displayed data-name. 

for every subscript used in a statement add 7 bytes 
for a comparision add 6 bytes 

for an implicitly generated comparison e.g. PERFORM UNTIL, READ AT 
END — add 6 bytes 


DATA DICTIONARY 

The Data Dictionary is constructed as the program is compiled. Its size 
depends on the host operating system. Each user defined name will have an 
entry in this dictionary. The number of bytes required for each entry is 
given in Table 12-1. 



Table 12-1. Data Dictionary Entry Sizing 


User-defined name 

Number of Bytes ^ 

File-name 

18 + n 

Record-name 

8 + n 

Key-name 

8 + n 

Status-name 

8 + n 

Paragraph-name 

6 + n 

Data-name Group 

8 + n Z 

Alphanumeric 32 characters 

7 ♦ n \ 

Alphanumeric 32 characters 

8 + n ‘ 

Numeric integer 

7 + n 2 

Numeric non integer 

8 + n Z 

Numeric edited 

7 + n + x 


n ± number of characters in user-defined name. 

For a FILLER, n = 1. 

x = number of characters in Picture, after coalescing repetitions. 

e.g. 9 9 99 . 9 =3 bytes 

9 (4) .9 =3 bytes 

Z (2) 9 (4) . 9 (3)= 4 bytes 

Subtract 1 byte if item is in the first 256 bytes of 
Working-Storage. 

Add 4 bytes if item has an OCCURS clause associated with it. 


Add 2 bytes, if item is. subordinate to an item described with 
OCCURS. 
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RESERVED WORD LIST 


This appendix contains a full list of COBOL and CIS COBOL reserved 
words. A shaded reserved word is a CIS COBOL extension to ANSI COBOL. 


The / symbol denotes that the text up to that point is a reserved word, 
as is the whole word. 

e.g.. In INDEX/ED, INDEX and INDEXED are reserved words IN SPACE/S, 
SPACE and SPACES are reserved words. 

\\( \ 




1 




ACCEPT 

ACCESS 

ADD 

ADVANCING 

AFTER 

ALL 

ALPHABETIC 

ALTER 

AND 

ARE 

AREA 

ASSIGN 

AT 

AUTHOR 

BEFORE 

BLANK 

BLOCK 

BY 

CALL 

CANCEL 

CHARACTER/S 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE-SET 

COLLATING 

COMMA 

COMP-M ' 

COMP-N 

COMP-3 

COMP/UTATIONAL/-3 

CONFIGURATION 

CONSOLE 

CONTAINS 

COPY 

CRT 

CRT-UNDER 

CURRENCY 

CURSOR 

DATA 

DATE-COMPILED 

DATE-WRITTEN 

DEBUGGING 

DECIMAL-POINT 

DECLARATIVES 

DELETE 

DISPLAY 

DIVIDE 

DIVISION 

DOWN 

DYNAMIC 

ELSE 

END 

ENTER 


ENVIRONMENT 

NUMERIC 

SYNC/HRONIZED ~ 

EQUAL 


\ 

ERROR 

OCCURS 

TAB 

EVERY 

OFF 

TABLE 

EXCEPTION 
. * 

OMITTED 

TALLYING 

EXIT 

ON 

THAN 

EXTEND 

OPEN 

THEN 

ED 

OR 

THRU 

ORGANIZATION 

TIMES 

FILE 

OUTPUT 

TO 

FILE-CONTROL 

OVERFLOW 

TRAILING 

FILTER 


TYPE 

FIRST 

PAGE 


FOR 

PERFORM 

UNIT 

FROM 

PIC/TURE 

UNTIL 


POSITIVE 

UP 

GIVING 

PROCEED 

' UPON 

GO 

PRODEDURE/S 

USAGE 

GREATER 

PROGRAM-ID 

USE 

HIGH-VALUE/S 

QUOTE/S 

rr\ 

VALUE/S ' 

VARYING 

1-0/-CONTROL 

RANDOM 


IDENTIFICATION 

RD 

WHEN 

IF 

READ 

WITH 

INDEX/ED 

RECORD/S 

WORDS 

INITIAL 

REDEFINES 

WORKING-STORAGE 

INPUT/-OUTPUT 

REEL 

WRITE 

INSPECT 

RELATIVE 

INSTALLATION 

REMAINDER 

ZERO/ES or S 

INTO 

REPLACING 

INVALID 

RERUN 

. (period) 

IS 

REWRITE 

( 


RIGHT 


JUST/IFIED 

ROUNDED 

) 


RUN 

• 

j 

KEY 


+ 


SAME 

« 

LABEL 

,SECTION 

< 

LEADING 

SECURITY 


LEFT 

SEGMENT 

> 

LESS 

SELECT 


LIMIT/S 

SENTENCE 

CIS COBOL system name 

LINE/S 

SEPARATE 

figurative constant 

LINKAGE 

SEQUENCE 

optional work 

LOCK 

SEQUENTIAL 


LOW-VALUE/S 

SET 

SIGN 


MEMORY 

SIZE 


MODE 

SOURCE-COMPUTER 


MODULES 

SPACE/S 


MOVE 

SPECIAL-NAMES 

• 

MULTIPLY 

STANDARD-1 

START 


NATIVE 

STATUS 


NEGATIVE 

STOP 


NEXT 

SUBTRACT 


NOT 

SWITCH 
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APPENDIX C 


INTRODUCTION 


GLOSSARY 


The terms in this Chapter are defined in, accordance with, their meaning as 
used in this document describing iCIS COBOL and may not have the same 
meaning for other languages. 

These definitions are also intended to be either reference material or 
introductory material to be reviewed prior to reading the detailed language 
specifications that are contained in this manual. For this reason, these 
definitions are, in most instances, brief and do not include detailed 
syntactical rules. 


DEFINITIONS 


Access Mode . The m a nn er in which records are to be operated upon within a 
file 

Actual Decimal Point . The physical representation, using either of the 
decimal point characters . (period) or , (comma) of the decimal 
point position in a data item. 

Alphabet-Name . A user-defined word in the SPECIAL-NAMES paragraph of the 
Environment Division that assigns a name to a specific character 
set and/or collating sequence. 



Alphabetic Character . A character that belongs to the following set of 
letters: A,B,C,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S,T,U,V,W,X,Y,Z and 
the space. 


Alphanumeric Character . Any character in the computer's character set. 

Arith metic Expression . An arithmetic expression can be an identifier or a 
numeric elementary item, a numeric literal, such identifiers and 
^ tera ^- s separated by arithmetic operators, two arithmetic 
expressions separated by a arithmetic operator, or an arithmetic 
expression enclosed in parentheses. 

Arithmetic Operator. A single character, or a fixed two-character combin¬ 
ation, that belongs to the following set: 

Meaning 
Addition 
Subtraction 
Multiplication 
Division 
Exponentiation 


Character 

+ 

* 

/ 

** 


Ascending Key. A key upon the values of which data is ordered starting with 
the lowest value of key up to the highest value of key In 
accordance with the rules for comparison of the data items. 





Assumed Decimal Point . A decimal point position which does not involve the 
existance of an actual character in a data item. The assumed 
decimal point has logical meaning but no physical representation. 

At End Condition . A condition caused in one of two circumstances: 

1. During the execution of a READ statement for a sequentially 
accessed file. 

2. During the execution of a RETURN statement when no next 
logical record exists for the associated sort or merge file. 

Called Program. A program which is the object of a CALL statement combined 
at run time with the calling program to produce a run unit. 


Calling Program . A program which executes a CALL to another program. 
Character. The basic indivisible unit of the language. 


Character Set (CIS COBOL) . The complete CIS COBOL character set consists 
of all characters listed below: 


Character 
0,1,...,9 
A,B,...,Z 



Meaning 
Numeric digit 
Uppercase alphabetic 
Eowereas&’^pKaljetJ d 
Space (Blank) 

Plus Sign 
Minus Sign 
Asterisk 

Stroke (Virgule or Slash) 

Equal Sign 
Currency Sign 
Comma 
Semicolon 

Period (Decimal Point, Fullstop™ 

Quotation Mark 
Left Parenthesis 
Right Parenthesis 

Greater Than Symbol ' ’ 

Less Than Symbol 


Character Position . A character position is the amount of physical storage 
required to store a single standard data format character 

described as usage in DISPLAY. Further characteristics of the 

physical storage are defined by the implementor. 

Character-String. A sequence of contiguous characters which form a 
CIS COBOL word, a literal, a PICTURE character-string or a 

c amine nt-entry. 

Class Condition . The proposition, for which a truth value can be determined, 
that the content of an item is wholly alphabetic or is wholly 
numeric. 
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Clause . A clause is an ordered set of consecutive iCIS COBOL character- 
strings whose purpose is to specify an attribute of an entry. 

Collating Sequence . The sequence in which the characters that are 
acceptable in a computer are ordered for purposes of sorting, 
merging and or comparing. 

Column . A character position within a print line. The columns are 
numbered from one, by one, starting at the left-most character 
position of the print line and extending to the right-most 
character position of the print line. 

Comment Entry . An entry in the Identification Division that may be any 
combination of characters from the computer character set. 

Comment Line . A source program line represented by an asterisk in the 
indicator area of the line and any characters from the computer’s 
character set in area A and area B of that line. The comment line 
serves only for documentation in a program. A special form of 
comment line represented by a stroke (/) in the indicator area of 
the line and any characters from the computer's character set in 
area A and area B of that line causes page'" ejection" before' 
printing the comment. 

Compile Time . The time at which an iCIS COEOL source program is translated 
by the compiler to an iCIS COBOL intermediate code program. 

Compiler-Directing Statement . A statement, beginning with a 
compiler—directing verb, that causes the compiler to take a 
specific action during compilation. 

Computer-Name . A system-name that identifies the computer upon which the 
program is to be compiled or run. 

Condition . A status of a program at execution time for which a truth value 
can be determined. Where the term "condition" (condition-1, 
condition—2,...) appears in these language specifications in or in 
reference to "condition" (condition-1, condition-2, ...) of a 
general format, it is a conditional' expression consisting of 
either a simple condition optionally parenthesised, or a negated 
simple condition. 

Conditional Expression . A simple condition specified in an IF, or PERFORM. 
(See Simple Condition and Complex Condition.) 

Conditional Statement . A conditional statement specifies that the truth 
value of a condition is to be determined, and that the subsequent 
action of the run-time program is dependent on this truth value. 

Configuration Section . A section of the Environment Division that describes 
overall specifications of source and run computers. 
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Connective . A reserved word that is used to: 


1 . 

2 . 

3. 


Associate a data—name, paragraph—name, condition—name, or 
text-name with its qualifier. 

Link two or more operands written in a series. 

Form conditions (logical connectives). (See 
Operator.) 


Logical 


Contiguous Items. 


Items that are described by consecutive entries in 
the Data Division, and that bear a definite hierarchic 
relationship to one another. 


Counter. 


A data item used for storing numbers or number representations in 
a manner that permits these numbers to be increased or decreased 
by the value of another number, or to be changed or reset to zero 
or to an arbitrary positive or negative value. 

CRT. An interactive input/output device comprising a cathode ray tube 

by which an Operator can enter and receive visual data. 

Currency Sign . The character "$" (dollar sign) in the iCIS COBOL character 
set. 

Currency Symbol . The character defined by the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. If no CURRENCY SIGN clause is present in 
an iCIS COBOL source program, the currency symbol is identical to 
the currency sign. 

Current Record . The record which is available in the record area associated 
with the file. 




Current Record Pointer . A conceptual entity that is used in the selection 
of the next record. 

fit'.- -t *;•.. " •; . ' '* • “ ; V 1 ‘ ^‘rUSS**’** 

Cursor . The indicator on a CRT screen that marks the line and character 
position which the input/output- control is currently referencing.. I 

Dg-.ta Clause . A clause .that appea,rs ,in a data description entry in the Data 
Division and provides information describing a particular 
attribute of a data item. 

Data Description Entry . An entry in the Data Division that is composed of a 
level-number followed by a data-name, if required, and then 
followed by a set of data clauses as required. 

Data Dictionary . A dictionary file of user defined names constructed by the 
Compiler containing the number of bytes for each entry. 

Data Item . A character or set of contiguous characters (excluding in either 
case literals) defined as a unit of data by the iCIS COBOL 
program. 


Data-name . A user-defined word ..that names a data .item described in a data 
description entry in the Data Division. When used in the general 
formats, "data-name" represents a' word which can neither be 
subscripted, nor indexed unless specifically permitted by the 
rules for that format. 
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in the indicator area 


Debugging Line . A debugging line is any line with "D" 
of the line. 

Declaratives . A set of one or more special purpose sections written at the 
beginning of the Procedure Division, the first of which is 
preceded by the key word DECLARATIVES and the last of which is 
followed by the key words END DECLARATIVES. A declarative is 
composed of a section header, followed by a USE compiler directing 
sequence, followed by a set of associated paragraphs (0 or more). 

Declarative-Sentence . A compiler-directing sentence consisting of a single 
USE statement terminated by the separator period (.). 

Disk, the disk from which the compiler on run-time'systern is' loaded 
and from which, in the absence of a specific drive identifier, any 

L .... ^.^opy f ilfi ,ot_called^ code wilI be_lpaded_.if_required. 

Delimiter. A character (or sequence of contiguous characters) that 
identifies the end of a string of characters, and separates that 
string of characters from the following string of characters. A 
delimiter is not part of the string of characters that it 
delimits. 

Descending Key. A key upon the values of which data is ordered starting 
with the highest value of key down to the lowest value of key, in 
accordance with the rules for comparing data items. 

Digit Position. A digit position is the amount of physical storage 

required to store a single digit. This amount varies depending on 
the usage of the data item describing the digit position. Further 
charactersitics of the physical storage are defined by the 
implementor. 

Division. A set of sections or paragraphs (0 or more) that are formed and 
combined in accordance with a specific set of rules are called a 
division body. There are 4 divisions in an iCIS COBOL program: 
Identification, Environment, Data and Procedure. 

, P . j-V lsiQI1 Header . A combination of words followed by a period and a space 

that indicate the beginning of a division. The division headers 
are: 


IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION USING data-name—1 data-name—2 


Dynamic Access . An access mode in which specific logical records can be 
obtained from or placed into a disk file in a non-sequential 
manner (see Random Access) and obtained from a file in a 

sequential, manner (see Sequential Access) during the scope of the 
same OPEN statement. v 


Editing Character. A single character or a fixed 
belonging to the same set: 


two character combination 




Character 

B 

0 


CR 

DB 

Z 

* 

$ 

f 

/ 


Meaning 

Space 

Zero 

Plus 

Minus 

Credit 

Debit 

Zero Suppress 
Check Protect 
Currency Sign 
Comma 

Period (Decimal Point) 
Stroke (Virgule, Slash) 



Elementary Item . A data item that is described as not being further 
logically subdivided. 


End of Procedure Division . The physical position in a CIS COBOL source 
program after which no further procedures appear. 


Entry. Any descriptive set of consecutive clauses terminated by a 
period (.( and written in the Identification Division, Environment 
Division or Data Division of an CIS COBOL source program. 


Environment Clause . A clause that appears as part of an Environment 
Division entry. 

Extend Mode. With the EXTEND phrase specified, the state of a file after 
execution of an OPEN statement, and before the execution of a 
CLOSE statement for the file. 

Figurative Constant . A compiler-generated value referenced through the use 
of certain reserved words. 

File . A collection of records. 

File Clause . A clause that appears as part of any of the following Data 
Division entries: 

File Description (FD) 

FILE-CONTROL. The name of an Environment Division paragraph in which the 
data files for a given source program are declared. 

File Description Entry. An entry in the File Section of the Data Division 
that Is composed of the level indicator FD, followed by a 
file-name, and then followed by a set of file clauses as required. 

File-Name. A user-defined word that names a file described in a file 
description entry or a sort—merge file description entry within 
the File Section of the Data Division. 

File Organization. The permanent logical file structure established at the 
time that a file is created. 

File Section. The section of the Data Divisionthat contains file 

description entries together with their associated record 

descriptions. ' 
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Format . A specific arrangement of a set of data. 


FORMS Program . A screen formatting program that automatically generates 
^ -- CXS COBOL CRT input/output _ coding from actual screen layout. 

Group Item . A named contiguous set of elementary or group items. 

High Order End . The leftmost character of a string of characters. 

I-Q-CONTROL . The name of an Environment Disvision paragraph in which 

object program requirements for specific input/output techniques, 
rerun points, sharing of same areas by several data files, and 
mu -l'bipl 2 file storage on a single input/output device are 
specified. 


I— 0 Mode . The state of a file after execution of an OPEN statement, with the 
I—0 phrase specified, for that file and before the execution of a 
CLOSE statement for that file. 

Identifier. A data-name, followed as required, by the syntactically 
correct combination of subscripts and indices necessary to make 
unique reference to a data item. 


Imperative Statement . A satement that begins with an imperative verb and 
specifies an unconditional action to be taken. An imperative 
statement may consist of a sequence of imperative statements. 

Implement or-Name . A system-name that refers to a particular feature avail¬ 
able on the implementors computing system. 


Index. A computer storage position or register, the contents of which 
represent the identification of a particular element in a table. 

Index Data Item. A data item in which the value associated with an 
index-name can be stored in a form specified by the Implementor. 

Indexed File . A file with indexed organizaton. 



Indexed Organization. The permanent logical file structure in which each 

record is identified by the value of one or more keys within that 
record. 


Indicator Area. The leftmost parameter position of a CIS COBOL source 
record that indicates the use of the record. 

Input File. A file that is opened in the input mode. 

Input Mode . The state of a file after execution of an OPEN statement, with 
the INPUT phrase specified, for that file and before the execution 
of a CLOSE statement for that file. 

IgP u t-Output File. A file that is opened in the 1-0 mode. 

I nput-Output Section . The section of the Environment Division that names 
the files and the external media by a program and which provides 
information required for transmission and handling of data during 
execution of the run-time program. 
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Integer * A numeric literal or a numeric data item that does not 
include any character positions to the right of the assumed 
decimal point. Where the ter ’integer* appears in general 
formats, integer must not be a numeric data item, and must not be 
signed, nor zero unless explicitly allowed by the rules of that 
format. 

Thterme"diaita Code. The code produced by” the' CIS COBOL” comp iler” from 'the 
. ., source cade entered - a n d,, w hich, the .Sun. lime... Sy s tem /fast, loads’! 

£nr^execu.tionJ 

Invalid Key Condition . A condition, at object time, caused when a specified 
value of the key associated with an indexed or relative file is 
determined to be invalid. 


'rsine^Clakr ^~ > rHe^frer£hIe”~diskette T ”~dr''liSIcS~ 


'tSe”CIST COBOL' software "is 

-__ I 


Key. 


A data item which identifies the location of. a record, or a set of 
data items which serve to identify the ordering of data. 


Key of Reference . The key currently being used to access records within an 
indexed file. 


Key Word . A reserved word whose presence is required when the format in 
which the word appears is used in a source program. 


Level-Number . A user-defined word which indicates the position of a data 
item in the hierarchical structure of a logical record or which 
indicates special properties of a data description entry. A 
level-number is expressed as a one or two digit number. 

Level-numbers in the range 1 through 49 indicate the position of a 
data item in the hierarchical structure of a logical record. 
Level-numbers in the range 1 through 9 may be written either as a 

single digit or as a zero followed by a significant digit. 

Level-number 77 identifies special properties of a data 

description entry. 


Library—Name . A user—defined word that names a CIS COBOL library 
intermediate file that is to be used by the compiler for a given 
source program compilation. 

Library-Text . A sequence of character-strings and/or separators in a 
COBOL library. 


!Tlnl^ , S'equenyf^ , 'F£Ie"OfgahiiratIdn» '~”' 2T'"seqpie5tfaI' T ~filS con ta i n ing; variable! 

length records separated by the C/R (carriage return) and L/Uj 
feed) characters . . _ 


J 


Linkage Section. The section in the Data Division of the called program 
that describes data items available from the calling program. 
These data items may be referred to by both the calling and called 
program. 

Literal. A character-string whose value is implied by the ordered set of 
characters comprising the string. 





Logical Operator . The reserved word 'NOT'. It can be used for logical 
negation. 

Logical Record . The most inclusive data item. The level-number for a 
record is 01. 

Low Order End . The rightmost character of a string of characters. 

Mnemonic-Name . A user-defined word that is associated in the Environment 
Division with a specified implementor-name. 

Native Character Set . The implementor-defined character set associated with 
the computer specified in the OBJECT-COMPUTER paragraph. 

Native Collating Sequence . The implementor-defined collating sequence 
associated with the computer specified in the OBJECT-COMPUTER 
paragraph. 

Negated Simple Condition . The ’NOT' logical operator immediately followed 
by a simple condition. 

Next Executable Sentence . The next sentence to which control will be 
transferred after execution of the current statement is complete. 

Next Executable Statement . The next statement to which control will be 
transferred after execution of the current statement is complete. 

Next Record . The record which logically follows the current record of a 
file. 

Noncontig uous Items . Elementary data items, in the Working-Storage and 

Linkage Sections, which bear no hierarchic relationship to other 
data items. 

Nonnumeric Item. A data item whose description permits its contents to be 
composed of any combination of characters taken from the 
computer s character set. Certain categories of nonnumeric items 
may be formed from more restricted character sets. 

Nonnumeric L iteral . A character-string bounded by quotation marks. The 

s ^ r ^ n 8 characters may include any character in the 

computer's character set. To represent a single quotation mark 
character within a nonnumeric literal, two contiguous quotation 
marks must be used. 

Numeric Character . A character that belongs to the following set of digits* 
0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 

Numeric Item. A data item whose description restricts its contents to a 
value represented by characters chosen from the digits 'O' through 
9 ; if signed, the item may also contain a or other 

representation of an operational sign. 

Numeric Literal . A literal composed of one or more numeric characters that 
aiso may contain either a decimal point, or an algebraic sign, or 
both. The decimal point must not be the rightmost character. The 
algebraic sign, if present, must be the leftmost character. 



OBJECT-COMPUTER . The name of an Environment Division paragraph in which the 
computer environment, within which the run-time program is 
executed, is described. 

Open Mode . The state of a file after execution of an OPEN statement for that 
file and before the execution of a CLOSE statement for that file. 
The particular open mode is specified in the OPEN statement as 
either INPUT, OUTPUT, 1-0 or EXTEND. 

Operand . Whereas the general definition of operand is 'that component which 
is operated upon', for the purposes of this publication, any 
lowercase word (or words) that appears in a statement or entry 
format may be considered to be an operand and, as such, is an 
implied reference to the data indicated by the operand. 

Operational Sign . An algebraic sign, associated with a numeric data item or 
a numeric literal, to indicate whether its value is positive or 
negative. 

Optional Word . A reserved word that is included in a specified format only 
to improve the readability of the language and whose presence is 
optional to the user when the format in which the word appears is 
used in a source program. 

Output File . A file that is opened in either the output mode or extend 
mode. 

Output-Mode. The state of a file after execution of an OPEN statement, with 
the OUTPUT or EXTEND phrase specified for that file and before the 
execution of a CLOSE statement for that file. 

Paragraph . In the Procedure Division, a paragraph-name followed by a period 
and a space and optionally by one, or more sentences. In the 
Identification and Environment Divisions, a paragraph header 
followed by zero, one, or more entries. 

Paragraph Header. A reserved word, followed by a period and a space that 
indicates the beginning of a paragraph in the Identification and 
Environment Divisions. The permissable paragraph headers are: 

In the Identification Division: 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

In the Environment Division: 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

FILE-CONTROL. 

I-O-CONTROL. 



Paragraph-Name . A user-defined word that identifies and begins a paragraph 
in the Procedure Division. 

Phrase . A phrase is an ordered set of one or more consecutive COBOL 
character-strings that form a portion of a CIS COBOL procedural 
statement or of a COBOL clause. 

Prime Record Key . A key whose contents uniquely identify a record within an 
indexed file. 


Procedure . A paragraph or group of logically successive paragraphs, or a 
section or group of logically successive sections, within the 
Procedure Division. 

Procedure-Name . A user-defined word which is used to name a paragraph or 
section in the Procedure Division. It consists of a 
paragraph-name or a section-name. 


Punctuation Character . A character that belongs to the following set: 



Character 


Meaning 


> 


) 

( 


comma 

semicolon 

period 

quotation mark 
left parenthesis 
right parenthesis 
space 

equal sign 


Random Access. An access mode in which the program-specified value of a key 
data item identifies the logical record that is obtained from, 
deleted from or placed into a relative or indexed file. 


Record . (see Logical Record) 



Record Area. A storage area allocated for the purpose of processing the 

record described in a record description entry in the File 
Section. 


Record Description . (See Record Description Entry) 

Record Description Entry. The total set of data description entries 
associated with a particular record. 


R ecord Key . A key, either the prime record key or an alternate record key, 
whose contents identify a record within an indexed file. 

Re cord-Name . A user-defined word that names a record described in a record 
description entry in the Data Division. 

R eference-Format . A format that provides a standard method for describing 

CO HOT. Qnnrpo & 
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Relation, (See Relational Operator) 


Relation Character . A character 

Character 

> 

< 


that belongs to the following set: 

Meaning 

greater than 
less than 
equal to 


Relation Condition . The proposition, for which a truth value can be 
determined, that the value of an arithmetic expression or data 
item has a specified relationship to the value of another 
arithmetic expression or data item. (See Relational Operator). 

Relational Operator . A reserved word, a relation character, a group of 
consecutive reserved words, or a group of consecutive reserved 
words and relation characters used in the construction of a 
relation condition. The permissable operators and their meaning 
are: 


Relational Operator Meaning 


IS 

NOT 

GREATER THAN 

Greater than or not greater than 

IS 

NOT 

> 


IS 

NOT 

LESS THAN 

Less than or not less than 

IS 

NOT 

< 


IS 

NOT 

EQUAL TO 

Equal to or not equal to 

IS 

NOT 

* 


Relative 

File. 

A file with 

relative organization. 

Relative 

Key. 

A key whose 

contents identify a logical record in a 


file. 


Relative Organization . The permanent logical file structure in which each 
record is uniquely identified by an integer value greater than 
zero, which specifies the record's logical ordinal position in the 
file. 

Reserved Word . A COBOL word specified in the list of words which may be 
used in COBOL source programs, but which t must not appear in the 
programs as user—defined words or system—names. 

Routine—Name. A user-defined word that identifies a procedure written in a 
language other than COBOL 

Run-Time Debug. An option available to CIS COBOL programmers entered as a 
user option enabling break—point facilities in run—t ime programs.- 

Run-Time. The time at which the intermediate code produced by the compiler 
is interpreted by the Run Time System for execution. 
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Run-Time-System-(RTS) . The software that interprets the intermediate code 
[ produced by the CIS COBOL compiler and enables it to be executed 

L™ w by providing interfaces to the operating system and CRT.. 

Run Unit . A set of one or more intermediate code programs which function, at 
run time, as a unit to provide problem solutions. 

Section . A set of none, one, or more paragraphs or entries, called a 
section body, the first of which is preceded by a section header. 
Each section consists of the section header and the related 
section body. 

Section Header . A combination of words followed by a period and a space that 

the beginning of a section in the Environment, Data and 
Procedure Division. 

In the Environment and Data Divisions, a section header is composed of 
reserved words followed by a period and a space. The permissible section 
headers are: 

In the Environment Division: 

^,A 1 

CONFIGURATION SECTION 

INPUT-OUTPUT SECTION 

In the Data Division: 

FILE SECTION 

WORKING-STORAGE SECTION 

LINKAGE SECTION 

In the Procedure Division, a section header is composed of a section-name 
followed by the reserved word SECTION, followed by a segment-number 
(optional), followed by a period and a space. 

Section-Name. A user-defined word which names a section in the Procedure 
Division. 

Segment-Number. A user-defined word which- classifies, sections-, in the- 
Procedure Division for purposes of segmentation. Segment-numbers 
may contain only the characters 'O’, 'l*, ...» ’9*. A 

segment-number may be expressed either as a one or two digit 
number, and is checked for syntax only. 

S entence . A sequence of one or more statements, the last of which is 
terminated by a period followed by a space. 

S eparator . A punctuation character used to delimit character-strings. 

Sequential Access. An access mode in which logical records are obtained from 
or placed into a file in a consecutive predecessor-to-successor 
logical record sequence determined by the order of records in the 
rile. 

Sequential File. A file with sequential organization. 



C - 13 





Sequential Organization . The permanent logical file structure in which a 
record is identified by a predecessor-successor relationship 
established when the record is placed into the file. 

Sign Condition . The proposition, for which a truth value.can be determined, 
that the algebraic value of a data item or an arithmetic 
expression is either less than, greater than, or equal to zero. 

Simple Condition . Any single condition chose from the set: 

relation condition 
class condition 
switch-status condition 
sign condition 
(simple-condition) 

SOURCE-COMPUTER . The name of an Environment Division paragraph in which 
the computer environment, within which the source program is 
compiled, is described. 

Source Program . Although it is recognised that a source program may be 
represented by other forms and symbols, in this document it always 
refers to a syntactically correct set of COBOL statements 
beginning with an Identification Division and ending with the end 
of the Procedure Division. In contexts where there is no danger 
of ambiguity, the word 'program' alone may be used in place of the 
phrase 'source program'. 

Special Character. A character that belongs to the following set: 


Character 

Meaning 

+ 

plus sign 

- 

minus sign 

* 

asterisk 

/ 

stroke (virgule, slash) 

- 

equal sign 

$ 

currency sign 

* 

comma (decimal point) 


semicolon 

• 

period (decimal point) 

ft 

quotation mark 

( 

left parenthesis 

) 

right parenthesis 

> 

greater than symbol 

< 

less than symbol 


Special-Character Word . A reserved word which is an arithmetic operator or 
a relation character. 

SPECIAL-NAMES. The name of an Environment Division paragraph in which 
Implementor-names are related to user specified mnemonic-names. 

Special Registers . Compiler generated storage areas whose primary use is to 
store information produced in conjunction with the user of 
specified COBOL features. 



Standard Data Format . The concept used in describing the characteristics of 
data in a COBOL Data Division under which the characterstics or 
properties of the data are expressed in a form oriented to the 
appearance of the data on a printed page of infinite length and 
breadth, rather than a form oriented to the manner in which the 
data is stored internally in the computer, or on a particular 
external medium. 

Statement . A syntactically valid combination of words and symbols written in 
the Procedure Division beginning with a verb. 

Subprogram . (See Called Program). 

Subscript . An integer whose value identifies a particular element in a 
table. 


Subscripted Data-Name . An identifier that is composed of a data-name 
followed by one or more subscripts enclosed in parenthesis. 

Switch-Status Condition . The proposition, for which a truth value can be 
determined, that an implementor-defined switch, capable of being 
s '—- set to ah oh or off status, has been set to ct specified 

status. 




Symbol Function . The use of specified characters in the PICTURE clause to 
represent data types. 

System-Name . A COBOL word which is used to communicate with the operating 
environment. 

Syntax . The order in yhich elements must be put together to form a 
program. 

Table. A set of logically consecutive items of data that are defined in 
the Data Division by means of the OCCURS clause. 

Table Element. A data item that belongs to the set of repeated items 
comprising a table. 


Text-Name . A user-defined word wich identifies library text. 

Text-Word. Any character-string or separator, except space, in a COBOL 
library or in pseudo-text. 

Unary Operator. A plus (+) or a minus (-) sign, wich precedes a variable or 
a left parenthesis in an arithmetic expression and which has the 
effect of multiplying the expressing of +1 or -1 respectively. 

User-Defined Word . A COBOL word that must be supplied by the user to 
satisfy the format of a clause or statement. 

Variable. A data item whose value may be changed by execution of the object 

program. A variable used in an arithmetic expression must be a 
numeric elementary item. 

Verb. A word that expresses an action to be taken by a COBOL compiler or 
run time program. r 
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Word . A character-string of not more than 30 characters which forms a 
user-defined word, a system-name, or a reserved word. 

Working-Storage Section . The section of the Data Division that describes 
working storage data items, composed either of noncontiguous items 
or of working storage records or of both. 

77 Level-Description-Entry . A data description entry that describes a 
noncontiguous data item with the level-number 77. 
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APPENDIX D 


COMPILE-TIME ERRORS 


The error descriptions that correspond to error numbers as printed on 
listings produced by the CIS COBOL compiler are as follows: 

ERROR DESCRIPTION 


01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

37 

38 

39 

40 

41 

42 

43 
44- 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
61 
62 


Compiler Error 
Bad lexical item: data-name 
Bad lexical item: literal 
Bad lexical item: character 
data-name declared twice 
Dictionary overflow 
Illegal character in column 7 
Input/Output error 

CIS COBOL extension used with ANS directive 
Wrong area A/B 
'.' missing 
'DIVISION* missing 
'SECTION' missing 
'IDENTIFICATION' missing 
'PROGRAM-ID' missing 
'AUTHOR' missing 
'INSTALLATION' missing 
'DATE-WRITTEN' missing 
'SECURITY' missing 
'ENVIRONMENT' missing 
'CONFIGURATION' missing 
'SOURCE-COMPUTER' missing 
MEMORY SIZE/COLLATING SEQUENCE in error 
'OBJECT-COMPUTER' missing 
'SPECIAL—NAMES' missing 
SWITCH Clause in error 
DECIMAL—POINT Clause In error 
CONSOLE Clause in error 
Illegal currency symbol 
'.' missing 
'DIVISION' missing 
'SECTION' missing 
'INPUT-OUTPUT' missing 
'FILE—CONTROL' missing 
'ASSIGN' missing 

'SEQUENTIAL' or 'INDEXED' or 'RELATIVE' missing 

'ACCESS' missing on indexed/relative file 

'SEQUENTIAL/DYNAMIC' missing 

Illegal combination ORGANIZATION/ACCESS/KEY 

SELECT Clause phrase unrecognised 

RERUN Clause syntax error 

SAME AREA Clause syntax error 

file-name missing 

'DATA DIVISION' missing 

'PROCEDURE DIVISION' missing or unknown statement 
'.' missing 
'DIVISION' missing 
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63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 


75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
116 

117 

118 

119 

120 
140 

142 

143 

144 

145 


’SECTION’ missing N , 

file-name is not selected 
Record size integer missing 

Illegal level number )01—49 = or 01 level required 
FD qualification contains syntax error 
’WORKING—STORAGE’ missing 

PROCEDURE DIVISION' missing or unknown statement 
Data Description Qualifier or missing 
SIGN/USAGE illegal with COMP data-itera or unsigned 
PICTURE data or incompatible with other qualifier 
BLANK is illegal with non-numeric data-item 
PICTURE clause too long (Numberic 18 Numeric 
Edited 512 Alphanumeric 8192) 

VALUE clause on non-elementary data-item, or truncation, 
or wrong data type 

’VALUE’ in error or illegal for PICTURE type 
FILLER/SYNCHRONIZED/JUSTIFIED/BLANK non-elementary 
item 

Level 0 or level with more than 8192 bytes , 

REDEFINES of unequal fields or different levels. 3 

Data storage exceeds 64K bytes 

’DYNAMIC’ only allowed in non-ANS and at level 01 

Data Description Qualifier inappropriate or repeated 

REDEFINES data-name not declared 

USAGE must be COMP, DISPLAY or INDEX 

SIGN must be LEADING or TRAILING 

SYNCHRONIZED must be LEFT or RIGHT 

JUSTIFIED must be RIGHT 

BLANK must be ZERO 

OCCURS must be numeric, non-zero and unsigned 
VALUE must be a literal, numeric literal or 
figurative constant 

PICTURE string has illegal precedence or illegal 
character 

INDEXED data-name missing or already declared 
numeric edited PICTURE string is too large 
Unrecognised verb 
If ... else mismatch 

Wrong data-type j 

Paragraph name declared twice 
Paragraph name same as data-name 
Name required 

Wrong combination of data types 

Conditional imperative statement 

Malformed subscript 

ACCEPT/DISPLAY wrong 

Bad 1/0 Syntax 

Ifs nested too deep 

Bad skeletal structure of Procedure Division 
Obligatory Reserved Word missing 
Subscript vector overflow 
Intermediate code output buffer overflow 
Inter-segment procedure name check 
If ... mismatch at end of Source Input 
Wrong data-type 
Paragraph name undeclared 

Index-name declared twice r \\ 
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146 

147 

148 

149 

151 

152 

153 

154 

156 

157 
160 


Bad cursor control 
KEY declaration missing 
STATUS declaration missing 
•Bad STATUS record 
PROCEDURE DIVISION in error 

USING parameter not declared in linkage' section 
USING parameter is not leve 01 or 77 
USING parameter used twice in parameter list 
1-0 Error on auxiliary segmentation files 
Bad skeletal structure of Procedure Division 
Intermediate Code Output buffer overflow 
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APPENDIX E 


RUN-TIME ERRORS 

Run-Time error messages are preceded by the name and segment number of the 
currently executing intermediate code file. 

Run-time errors can be either recoverable or fatal, as described below: 
RECOVERABLE ERRORS 

Recoverable error handling is programmed by the CIS COBOL programmer using 
the file STATUS reserved word. A decision can be made to terminate or 
recover from the error. 

FATAL ERRORS 

All run-time errors that are not handled as recoverable errors are fatal. 

They can arise from the operating system or from the Run-Time System. Fatal 
errors cause a message to be output to the sceen that includes a 3-digit ^ 
error code and a reference to the CIS COBOL statement in which it occurred. 
Fatal errors can be of two types, as follows: 

1. Exceptions 

These cover arithmetic overflow, subscript out of range, too many 
levels of perform nesting. 

2. I/O errors. 

These exclude those for which STATUS is not selected as above. 


ERROR 

DESCRIPTION 


151 

Random read on sequential file 


152 

REWRITE on file not open for I/O 


153 

Subscript out of range 


154 

Perform nesting exceeds 22 levels 


155 

Illegal command line 

r V 

156 

Invalid file operation „ 


157 

Object file too large 


158 

REWRITE on line-sequential file 


.. 159 

Malformed line-sequential file 


160 

Overlay loading error 


161 

Illegal intermediate code 


163 

AT cursor position is off screen 


164 

Specified code not found 


165 

Incompatible releases of compiler and run-time system 

170 

Illegal operation in indexed Sequential 


171 

Attempt to read I-S record in output/extend mode 


172 

Attempt to delete I-S record in non I/O mode 


173 

Attempt to write I-S record in input mode 


180 

COBOL file malformed 


181 

Fatal file malformation 
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APPENDIX F 


SYNTAX SUMMARY 

All the syntax for CIS COBOL is summarised below. 

E denotes that the feature is a CIS COBOL extension to ANSI COBOL. 
D denotes that the feature is documentary only in CIS COBOL. 

GENERAL FORMAT FOR IDENTIFICATION DIVISION 



IDENTIFICATION DIVISION . 
PROGRAM—ID . program name 


[ AUTHOR . 

[ INSTALLATION . 

[ DATE-WRITTEN . 

[ DATE-COMPILED . 

[SECURITY. 


[comment entry] 
[comment entry] 
[comment entry] 
[comment entry] 
[comment entry] 


...] 
...] 
• ••] 
...] 
...] 


V 
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GENERAL FORMAT FOR ENVIRONMENT DIVISION 


ENVIRONMENT DIVISION . 

CONFIGURATION SECTION . 

SOURCE-COMPUTER . source-computer-entry [WITH DEBUGGING MODE]. 
OBJECT-COMPUTER . object-computer-entry 


■ 

WORDS 

1 

.MEMORY SIZE integer 

CHARACTERS 



MODULES 

J 


[.PROGRAM COLLATING SEQUENCE IS alphabet-name], 
SPECIAL-NAMES. 



' 0 

SWITCH 

• 

• 


• 

7 


[ IS mnemonic-name] 


ON STATUS IS condition-name-1 
[ OFF STATUS IS condition—name—2] 
[. CURRENCY SIGN IS literal-9] 

[ . DECIMAL-POINT IS COMMA] 

[. CURSOR IS data-name-1] E 

[. CONSOLE IS CRT ] ' . E 

INPUT-OUTPUT SECTION . 

' FILE-CONTROL . 

| file-control-entry|... 

1-0-CONTROL . 

; RERUN |~ON / file-name-1 

L \ implementor-name 


EVERY 


}] 


C END OF /REEL) } 

\ 

| {unit/ j 

OF file-name-2J 

( integer-1 RECORDS ) 


integer-2 CLOCK-UNITS 

] 

condition-name 

/ 


| SAME AREA FOR file-name-1 | ,file-name-2 .J , 
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GENERAL FORMAT FOR FILE-CONTROL ENTRY 


Sequential SELECT: 

SELECT file—name 

ASSIGN TO ( external-file-name-literal) 
' file-identifier 


h 


external-file-name-literal 
file-identifier 


ORGANISATION IS 


'( SEQUENTIAL V 
1 LINE SEQUENTIAL f 


[; ACCESS MODE IS SEQUENTIAL ] 

[;FILE STATUS IS data-name] . 

Relative Select: 

SELECT file—name 

ASSIGN TO texternal-file-name-literal 

' file-identifier 

ORGANISATION IS RELATIVE 


I [",( external-f ile-name-literal 
’ (_ 'file-identifier 



( SEQUENTIAL] 

RELATIVE KEY IS data-name' 


;ACCESS MODE IS < 

(RANDOM ) 

) DYNAMIC r 1 

,RELATIVE KEY IS data-name 

) 

1 


[;FILE STATUS IS data-name] 
Indexed Select: 

SELECT file—name 


ASSIGN TO 


^file-identifier 
ORGANISATION IS INDEXF.n 


externa],-file-name-iitera 1 ) f\ , external-f ile-name-literal»7 

'file-identifier 



(SEQUENTIAL)] 

jACCESS MODE IS 

{RANDOM > 


| DYNAMIC | 


; RECORD KEY IS data-name 
[;FILE STATUS IS data-name] 
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GENERAL FORMAT FOR THE DATA DIVISION 


DATA DIVISION. 


FILE SECTION . 
FD file-name 


t 


; BLOCK CONTAINS integer f RECORDS "i 

| CHARACTERS ( 


RECORD CONTAINS [integer-1 T£] integer-2 CHARACTERS D 


. tadttt / RECORD IS ) [ STANDARD) : 

* - 1 RECORDS ARE ( ) OMITTED ( 

: VALUE OF data-name-1 IS literal-1 
data-name-2 IS literal-2 

RECORD IS ) 


" / RECORD IS } 

’ - 1 RECORDS ARE j data-name-1[, data-name-2]... 


[i CODE—SET IS alphabet—name] 

[record-description-entry] ... ]. . 

WORKING-STORAGE SECTION 
77-level-description-entry] 
_record-description-entry J 

LINKAGE SECTION 


D 

D 

D 

D 


77-level-description-entry] 
|_record-description-entry 


GENERAL FORMAT FOR DATA DESCRIPTION ENTRY 

level-number / data-name] 

) FILLER / ' 

[; REDEFINES data-name] 

[PICTURE^.. . 

’ipic-| IS P icture ~ strin § 

' COMPUTATIONAL 
COMP 


. TTr» a n-n t r* ( COMPUTATIONAL-3 
, USAGE IS C0M p_3 


DISPLAY 


[; SIGN IS] 


{ 


LEADING ) 

TRAILING f [SEPARATE CHARACTER] 




[;OCCURS integer TIMES INDEXED BY index-name-1 [, index-name-2]...] 


;f SYNCHRONIZED ) 
) SYNC / 


[ 

r ;[JUSTIFIED ) 

I 1 JUST / 


( LEFT \ " 
\ RIGHT f 


RIGHT 




[;BLANK WHEN ZERO ] 

[;VALUE IS literal] . 
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GENERAL FORMAT FOR PROCEDURE DIVISION 


Declarative format: 

PROCEDURE DIVISION USING data-name—1 [, data—name—2] ... . 

DECLARATIVES . 

section—name SECTION segment—number. declarative—sentence 
paragraph-name. [sentence] ... . 

END DECLARATIVES . 

section—name SECTION [segment—number] . 

paragraph-name [sentence] .. 


Non-declarative format: 

PROCEDURE DIVISION USING data—name—i [,data-name—2] 

paragraph-name [sentence] . 


GENERAL FORMAT FOR VERBS 

SH gggg| {f-—- 2 }] -OH'S • 

ACCEPT identifier [FROM CONSOLE] 


ADD 

(identifier-1 i 
[ literal-1 J 

1,/ identifier-2 
i [literal-2 

.. TO^ identifier 


[; 

ON SIZE ERROR 

imperative-statement] 

ADD - 

/identifier-1] 
[ literal-1 J 

1 ( Identifier- 

i * [literal-2 

2)f", identifier-3*j 
/[, literal-3 J" * 


GIVING identifier 

[ROUNDED] 


[; 

ON SIZE ERROR 

imperative-statement] 


ALTER procedure-name-1 TO PROCEED TO procedure-name-2 

USING data-name-1 [, data-name-2] 

D 


CALL 


/identifier-1) 
[literal-1 / 


CLOSE file-name 


/ REEL 
1 UNIT 


} 


D 


[WITH LOCK] .file-name [WITH LOCK] 


DELETE _ flie -name ^ RECORD [; INVALID KEY imperative-statement] D 


DISPLAY 


DISPLAY 


[literal 


-r 1 } • { 


/identifier-1[ , / identifier-2 


literal-2 


| ... [UPON CONSOLE] 


/data-name-1 

1 AT /data-name-2) 

' UPON (CRT “ ) 

(literal-3 

/ (literal-4 J 

) CRT-UNDER f 
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\ 


DIVIDE • 

/identifier-] 
I literal-1 

L | INTO identifier-2 [ROUNDED] 


[;0N SIZE 

ERROR 

imperative-statement] 

DIVIDE ■ 

/identifier-] 
(literal-1 

L | INTO 

■ {literal 1 ^ 2 } GIVING identifier-2 [ROUNDED] 


[;ON SIZE 

ERROR 

imperative-statement] 

DIVIDE 

/identifier-] 
(literal-1 

1 }bt{ 

GIVING identifier-3 [ROUNDED] 


[;0N SIZE 

ERROR 

imperative-statement] 


ENTER language-name [routine-name]. D 

EXIT . 

do TO procedlire-name. 



GO TO procedure-name-1 j, procedure-name-2}... 


DEPENDING ON identifier 


IF condition; 


j statement-1 } 
I NEXT SENTENCE f 


ELSE statement-2 1 
ELSE NEXT SENTENCE / 


INSPECT identifier-1 TALLYING 


• 

identifier-2 FOR 

J 

(iM \ 

’ | LEADING f 

/identifier-3)) 

_ 1 


l- J 

CHARACTERS 

(literal-2 /) 

1 ) 


7 BEFORE ) /identifier-4f 

jiUrl INITIAL {literal-3 /J' 


INSPECT . ideatif iet-l.. REPLACING 

CHARACTERS BY ( I dentl f ier “ 6 
- )literal-4 


Mi 

'ALL \ 

'leading J 


FIRST | 


/identifier-5 
* (literal-3 


( BEFORE t 
1 AFTER / 


INITIAL 


BY 

/identifier- 
(literal-5 


/identifier-6] 
(literal-4 J 


7 }] 



INSPECT identifier TALLYING tally-clause REPLACING replacing-clause 


M0VE< 


identifier-1 
literal-1 


} 


TO 


identifier-2 


[,identifier-3] 
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MULTIPLY 


identifier-1 

literal-1 


BY identifier-2 


[ROUNDED] 





[; ON SIZE ERROR imperative-statement] 


MULTIPLY 


identifier-l\ 
literal-1 / 



identifier-2 

literal-2 


} 


GIVING identifier-3 


[; ON SIZE ERROR imperative-statement] 


[ROUNDED] 


OPEN 


/ 

INPUT 


] 

OUTPUT , .. 

r=— r- file-name-1 

1—u 

[ ,file-name-2J... 

(1 

EXTEND 



/ 


PERFORM 

procedure-name-1 j 

fTHROUGH 1 
i THRU | 

|. procedure-name-2 


PERFORM 

procedure-name-1 j 

[THROUGH] 
[ THRU J 

1 

j. procedure-name-2 

/ identifier-l )’ 

{ literal-1 / 1IMES 

PERFORM 

procedure-name—1 ^ 

f THROUGH' 
THRU 

j- procedure-name-2 

UNTIL condition 


REAP file-name [ NEXT ] RECORD [INTO identifier] 


[;AT END imperative-statement] 

REAP file-name RECORD [INTO identifier] 

[; INVALID KEY imperative-statement] 
REWRITE record-name [ FROM identifier] 


[; INVALID KEY imperative-statement] 


( identifier-l) 

( [identifier-2] ) 

1 

f— 1 

\ index-name-1/ 

([index-name-2] / 

- | 

' UP BY > 

1 DOWN BY ) 


identifier 
index-name 
integer-1 


-3 

-3 



" 

[IS - 


START file-name 

KEY < 

is > 

> 


. 

. IS NOT < 



data-name 


[; INVALID KEY imperative-statement] 


(T) 
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STOP 


RUN ) 
literal f 

SUBTRACT /identifer-l) /identifier-2)"] 
(literal-1 / L (literal -2 /J 



FROM identifier-3 [ROUNDED] 


[; ON SIZE ERROR imperative-statement] 


SUBTRACT 


identifier-l) T,)identifier-2)" 
literal-1 /L (literal-2 /_ 




GIVING identifier 4 [ ROUNDED ] 

[j ON SIZE ERROR imperative-statement] 


USE AFTER STANDARD j | procedure ON 


I f il e-name 
INPUT 
OUTPUT 
1-0 

' EXTEND 


USE FOR DEBUGGING /P rocedure name-1) 
- -) ALL PROCEDURES / 


[" forocedure-name-2)1 
(.’(ALL PROCEDURES JLJ* * * * 


WRITE record-name [ FROM identifier] 

integer 


/ BEFORE ) 
| AFTER / 


ADVANCING 


/PAGE) 
) TAB 


? 


WRITE record-name FROM identifier 


/ LINE ) 
( LINES/ 


[; INVALID KEY imperative-statement] 


E 




GENERAL FORM FOR COPY STATEMENT 
COPY "text-name" . 
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APPENDIX G 


SUMMARY OF EXTENSIONS TO ANSI COBOL 

CIS COBOL is oriented to microcomputer users with the system close at hand 
and usually with a CRT. CIS COBOL therefore provides extensions for 
interactive working, program control of files, t'ext file handling and' rapid 
development and testing. These facilities are summarised below. 


SCREEN FORMATTING AND DATA ENTRY 
THE ACCEPT STATEMENT 

An additional format for the ACCEPT statement is provided as follows: 
Format 

ACCEPT dataname-1 [at{^^®“ 2 |] FROM CRT 

allows the start of screen to be changed dynamically. It 
refers to a PIC 9999 field where the most significant 99 is a 
line count 1-25 and the least significant 99 is a character 
position 1-80. 

refers to a record, group or elementary item but may not be 
subscripted. 

is in alphanumeric literal 

Chapter 3 for description. See also Appendix H for 
Environment Division changes. 


data-name-2 

data-name-1 

literal-1 
NOTE: See 


THE DISPLAY STATEMENT 

An additional format for the DISPLAY statement is provided as follows: 


Format 


DISPLAY <f data -name- 
(literal 


literal-3 


t 1 }^ sags 


•UNDER 


is an alphanumeric literal 


dataname-1 


refers to a record, group or elementary item but may not be 
sub scripted 


dataname-2 


defines the left-most position on the screen. It refers to a 
PIC 9999 field where the most significant 99 is a line count 
and the least significant 99 is a character position 

1-80. 


NOTE: See Chapter 3 for description. 
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DISK FILES 


Two extensions are offered by CIS COBOL file processing. these are as 


1. Line sequential files 

2. Run time input of filenames 

LINE SEQUENTIAL FILES 

When LINE SEQUENTIAL ORGANIZATION is specified in the FILE CONTROL 
paragraph ORGANIZATION IS entry, the file is treated as consisting of 
variable length records separated by the line delimiter characters. 
Trailing spaces in output records are replaced by a Carriage Return and a 
Line Feed character. 

RUN TIME INPUT OF FILENAMES 

The ASSIGNed name in the SELECT statement for a file is processed on -~'-n 
OPEN ing as follows: ) 

When the INPUT or OUTPUT phrase is specified, execution of OPEN causes 
checking of the files names in accordance with the operating system 
connections for opening on input or output file. The full operating system 
features for file reallocation and device control are therefore available to 
the CIS COBOL program. 


LOWER CASE CHARACTERS 

The full alphanumeric lower case a to z is available in CIS COBOL. 
Reserved and user word characters are read as their upper case equivalents 
(A to Z). 


HEXADECIMAL VALUES 

Hexadecimal binary values can be attributed to non-numeric literals in ", 

CIS COBOL by expressing them as X "xx", where x is a hexadecimal character 

in the set 0—9, A—F; xx can be repeated up to 120 times, but the number of 
hexadecimal digits must be even. 

INTERACTIVE DEBUGGING 

There is a Run-Time Debug Package to provide break-point facilities in 
the user's program. Programs may be run from the start until a specified 
break-point is reached, when control is passed back to the user. At this 
point, data areas may be inspected or changed. 

The debug package is entered as an option by the user and the user 

program is then tested line by line, paragraph by paragraph and so on as 

required. The commands to the package can reference procedure statements 
and data areas by means of a 4 digit hexadecimal code output by the .compiler 
against each line of the compilation listing. Powerful macros of commands 
can be used to give very sophisticated debugging facilities.' The precise 
details for using the package vary according to the host operating system - N 
and are described in the appropriate Operating Guide. ) 

yj 
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APPENDIX H 


SYSTEM DEPENDENT LANGUAGE FEATURES 

This Appendix summarises those parts of a COBOL program that need to be 
changed to run them as CIS COBOL programs and those parts that do not need 
changing specifically but are ignored by the CIS COBOL compiler when 
generating the object program. 


MANDATORY CHANGES 
ENVIRONMENT DIVISION 

The only statements in the environment division that must be 
specialised for CIS COBOL are shown below: 

Configuration Section 

SPECIAL—NAMES , special names entry 

special names entry must include the following: 

CURSOR IS data—name—1 

The CURSOR IS data-name-1 clause specifies the data-name which will contain 
the CRT cursor address as used by ACCEPT statements. Data-name-1 must be 
declared in the Working—Storage section as a 4 character item. The 
interpretation of the 4 characters is given in the ACCEPT statement 
description. 


Input-Output Section 

File names must be as described in Appendix F of the CIS COBOL 
Operating Guide. 


STATEMENTS COMPILED AS DOCUMENTATION ONLY 

COBOL programs not specifically written for compilation as CIS COBOL on 
microcomputers can still be compiled. Statements using features that are 
not available are treated as documentary only, and are not compiled. A 
summary of these features follows: 

ENVIRONMENT DIVISION 

I-O-Control Paragraph 

The clauses that refer to a real time clock and magnetic tape in this 
paragraph are ignored by the compiler during compilation but do not cuase 
compile times errors. These clauses are as follows: 

•SSL 0F {uNlx} of f^ e “ name ”2 (no magnetic tape) 


H - 1 



integer-2 CLOCK UNITS 


(no clock) 


'' 

,) 

DATA DIVISION 

File Description Paragraph 

The following complete statements ’in the file description are ignored 
by the compiler during compilation but do not cause compile time errors: 


BLOCK CONTAINS integer-l TO integer-2 


/RECORDS 1 


\ CHARACTERS/ 


CODE-SET IS alphabetic-name 


LABEL 


RECORD IS ) 
RECORDS ARE/ 


STANDARD ) • 
OMITTED / 


VALUE OF implementor-name-1 IS literal-1 
[, implementor-name-2 ’IS literal-2] 



PROCEDURE DIVISION 
CLOSE Statement 


The following phrases in the CLOSE statement are ignored by the 
compiler during compilation but do not cause compiler-time errors:: 


REEL ) (No magnetic tape) 

UNIT / 


* 
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APPENDIX I 


LANGUAGE SPECIFICATION 


CIS COBOL is ANSI COBOL as given in "American National Standard Programming 
Language COBOL" (ANSI X3.23 1974). CIS COBOL implements both levels of 

ANSI COBOL. The following modules are fully implemented at Level 1: 

. Nucleus 

. Table Handling 

. Sequential Input and Output 

. Relative Input and Output 

. Indexed Input and Output 

. Segmentation 

. Library 

. Inter-Program Communication 

. Debug 

In addition many Level 2 features are implemented such as: 

Nucleus - Nested IF, PERFORM UNTIL 
. Relative and Indexed sequential I/O - START statement 

. Inter-Program Communication - Fully implemented at level 2 


This appendix specifies the implementation of Version 4.3 CIS COBOL. The 
implementation of each of the eight standard COBOL modules listed above is 
given under the following headings as applicable: 

Level 1 Implementation 
Level 2 Implementation 
CIS COBOL Extensions 


Appendix F in this manual is a CIS COBOL syntax summary. 
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NUCLEUS 


Level One Implementation 
Fully implemented to Level One. 

Level Two Implementation 

1* DATE-COMPILED in the Identification Division is accepted for 
documentation purposes only. 

2. Up to 49 Level Numbers are permitted and 1-9 can be a single digit. 
The characters , and ; are permitted as separators 


The character 


tv. t f _ I 


and '<' are permitted in relative conditions. 


The PERFORM ... THROUGH ... UNTIL feature is implemented. 

6. Plural forms of the figurative constants can be used. 

7. IF statements can be nested. 

8. Mnemonic names are permitted in ACCEPT and DISPLAY statements (See 

CIS COBOL extensions 6 and 7 below). 

9. Procedure names can be all digits. 

10. REDEFINES clauses can be nested. 

11. Non-numeric operands can be compared. 

CIS COBOL Extensions 

1. Lower case letters a to z are read as upper case letters A to Z. 

2. Hexadecimal binary values can be attributed to non—numeric values by 

expressing literals as X"nn". 

3. Reserved word SPACE can be used to clear the whole CRT screen. 

4. ANS switch not set enables omission of certain ANSI required "red tape" 
paragraphs and statements. 

5. COMPUTATIONAL-3 or COMP-3 can be specified in the USAGE clause to 

specify packed internal decimal storage, (BCD). 


6. ACCEPT data—name 


-1 AT )data-name-2[ 

|literal-1 | 


FROM CRT 


gives anhanced, CRT input features 
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DISPLAY 


data-name—1 
literal-1 


.~\data-name-2[ 
AT jliteral-2 J 


UPON 


jcRT 

j CRT-UNDER! 


gives enhanced CRT output facilities. 

8. 'CURSOR IS data-name' can be specified in SPECIAL-NAMES and 'data-name' 
in WORKING-STORAGE section to specify CRT cursor address for ACCEPT 
statements 

SEQUENTIAL. RELATIVE AND INDEXED 1-0 


Level One Implementation 


Fully implemented to Level One. 

Level Two Implementation 

1. The START statement is fully supported for Relative and Indexed files. 

2. In sequential files, EXTEND is supported. 

3. In OPEN and CLOSE statements: 

j REEL) 

(UNIT/ 

are accepted for documentation purposes only. 

4. LOCK in the CLOSE statement is treated as documentary only. 

5. Dynamic access mode and READ NEXT are supported for relative and 
indexed files. 

6. Only the first assignment in each ASSIGN is actioned, others are 
treated as documentary only at compilation. 

7. The I-O-CONTROL paragraph is treated as documentary' only as are its- 
RERUN and SAME AREA clauses. 

8. The following are treated as documentary only in the FD clause: 

BLOCK CONTAINS 
CODE-SET 
DATA RECORDS 
LABEL RECORDS 
RECORDS CONTAINS 
VALUE OF 


CIS COBOL Extensions 

1. Run Time allocation of file—names. See Appendix F in Operating Guide. 
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2. LINE SEQUENTIAL is an additional file type. 

3. All File Description (FD) clauses are optional when AMS switch is 
unset. 

4. Tabbing is available, specified by TAB in the WRITE statement. 


TABLE HANDLING 


Level One Implementation 
Fully implemented to Level One. 


CIS COBOL Extensions 


1 . 


Items can be accessed in tables up to 49 dimensions. This 
restricted to three dimensions if the ANS switch is set. 


extension is 


SEGMENTATION 

Level One Implementation 


Fully implemented to Level One 


LIBRARY 


Level One Implementation 
Fully implemented to Level One 


) 


DEBUG 


Level One Implementation 

Fully implemented to Level 1 plus an additional Interactive Run-Time Debug 
package. 
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CIS COBOL Extensions 


A powerful Run-Time Debug package is available. See Chapter 3 in the 
CIS COBOL Operating Guide. 


INTER-PROGRAM COMMUNICATION 


Level Two Implementation 


Fully implemented to Level Two. 
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ALPHABETIC INDEX 


A 

ACCEPT Statement, 3-36 
Access Mode, 5-1,6-1,7-1 
ADD Statement, 3-39 
Algebraic Signs, 2-12 
Alignment Rules, Standard, 
2-12 

Alphabetic Data Rules, 3-12 
Alphanumeric Data Rules, 
3-13 

Alphanumeric Edited Data 
Rules, 3-13 

ALTER Statement, 3-41,8-4 
ANSI (ANS) Compiler 
Directive, 2-15 
Area, Indicator, 1-4 
Arithmetic Statements, 3-45 
AT END Condition, 5-3, 6-4 
7-4 


B 


Blank Lines, 2-25 
BLANK WHEN ZERO Clause, 3-8 
BLOCK CONTAINS Clause, 5-9, 
6-9, 7-9 

Body, Procedure Division, 
2-21 


C 


CAT.T. Statement, 11-4 
CANCEL Statement, 11-5 
Character Representation and 
Radix, Selection of, 2-10 

Character Sets, 2-1 
Character Strings, 2-3 
Character Strings, PICTURE 
2-8 

CIS COBOL, What It Is, 1-1 
Class Condition, 3-32 


Classes of Data, Concepts, 

2- 9 

Classification, Segmentation, 
8-2 

Clause, BLANK WHEN ZERO, 3-8 
Clause, BLOCK CONTAINS, 5-9, 

6- 9,7-9 

Clause, CODE-SET, 5-9 
Clause, DATA-NAME or FILLER, 

3- 9 

Clause, DATA RECORDS, 5-8, 6-9 

7- 9 

Clause, JUSTIFIED, 3-10 
Clause, LABEL RECORDS, 5—10, 
6-10, 7-10 
Clause, OCCURS, 4-1 
Clause, PICTURE, 3-11 
Clause, RECORD CONTAINS, 5-9 

6- 10, 7-10 

Clause, REDEFINES, 3-21 
Clause, SIGN, 3-21 
Clause, SYNCHRONISED, 3-25 
Clause, USAGE, 3-27, 4-3 
Clause, VALUE, 3-28 
Clause, VALUE OF, 5-11, 6-10, 

7- 10 

CLOSE Statement, 5-12, 6-12 
7-11 

COBOL Words, 2-3 
CODE-SET Clause, 5-9 
Comment Lines, 2-27 
Comment Entries, 2-8 
Comparison Involving Index 
Names and/or Index Data 
Items, 4-4 

Comparison of Nonnumeric 
Operands, 3-31 
Comparison of Numeric 
Operands, 3-31 
Compile Time Switch, 10-1 
Compiler Directives, ANS, 

2-15 

COMP(UTATI0NAL)(-3) PICTURE 
Clause, 2-10 

Computer Independent Data 
Description, Concept of, 

2-8 
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Concept, Classes of Data, 

2- 9 

Concepts, Computer 
Independent Data 
Description, 2-8 
Concepts, Language, 2-1 
Concepts, Levels, 2-9 
Condition-Name, 2-4, 2-14 
Condition-Name Rules 3-18 
Conditional Expressions, 

3- 30 

Conditions, AT END, 5-3, 6-4 
7-4 

Conditions, Class, 3-32 
Conditions, INVALID KEY, 5-3 
6-3, 7-4 

Conditions, Relation, 3-30, 

4- 4 

Conditions, Simple, 3-30 
Conditions, Switch-Status, 
3-33 

CONFIGURATION SECTION-, 3-3 
Connectives, 2-5 
Constants, Figurative, 2-5 
Continuation of Lines, 2-25 
COPY Statement, 9-2 
CRT Devices, 3-35 
Current Record Pointer, 5-1 
6-1, 7-1 


D 


Data Description, Computer 
Independent, Concept of, 
2-8 

Data Description, Entries 
Other Than Condition—Names 
3-29 

Data Description, Entry 
Skeleton, 3-6 
Data Dictionary, 12-2 
Data Division Entries, 2-26 
Data Division in Indexed 1-0 
Module, 7-8 
Data Division in 

Interprgoram Communication 
Module, 11-1 

Data Division in Nucleus, 

3-6 

Data Division in Relative 

1-0 Module, 6-8 
Data Division in Sequential 
1-0 Module, 5-7 


Data, Incompatable, 3-35 
DATA-NAME or FILLER Clause, 3-9 
DATA RECORDS Clause, 5-7, 6-9 
7-9 

DATE-COMPILED Paragraph, 3-2 
Debug, 10-1 
Debugging'Lines, 10-1 
Debug, Run Time, 10-1 
Declarations, 2-20 
Declaratives, 2-26 
DELETE Statement, 6-13, 7-1 
DISPLAY Statement, 3-42 
DIVIDE Statement, 3-44 
Division Format, 2-25 
Division Header, 2-25 


E 

Editing Symbols, 3-17 
Editing Types for Data 
Categories, 3-16 
Elementary Item Size Rules, 
3-13 

Elements, 1-3 
ENTER Statement, 3-46 
Entries, Comment, 2-8 
Entry, FILE-CONTROL, 5-4, 6-5, 
7-5 

Environment Division in 
Indexed 1-0 Module, 7-5 
Environment Division in 
Nucleus, 3-3 
Environment Division in 
Relative 1-0 Module, 6-5 
Environment Division in 
Sequential 1-0 Module, 5-4 
Execution, Procedure Division 

2-20 

EXIT Statement, 3-47 

EXIT PROGRAM Statement, 11—6 

Expressions, Conditional, 

3-30 


F 


Figurative Constants, 2-5 
Figurative Constant Values, 

2-7 

File Description Entry 
Skeleton, 5-8., 6-8, 7-8 
FILE SECTION, 5-7, 6-8, 7-8 
FILE-CONTROL Entry, 5-4, 6-5, 7-5 
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FILE-CONTROL Paragraph, 5-4, 
6-5, 7-5 

FILLER or DATA-NAME Clause 
3-9 

Fixed Insertion Editing 
Rules, 3-16 
Fixed Portion, 8-1 
Formats, Division, 2-25 
Formats, General, 1-3 
Formats, Paragraph, 2-25 
Formats, Reference, 2-24 
Formats, Section, 2-25 
Formats, Source, 1-4 


G 


General Formats, 1-3 
GO TO Statement, 3-48 


H 


Header, Division, 2-25 
Header, Paragraph, 2-25 
Header, Procedure Division 
2-25 

Header, Section, 2-25 


I 


Identification Division, 
2-16 

Identification Division, in 
Nucleus, 3-1 
Identifier, 2-14 
IF Statement, 3-49 
Incompatible Data, 3-35 
Independent Segments, 8-1 
Indexed 1-0 Module, 7-1 
Indexed 1-0 Module, Data 
Division in, 7-8 
Indexed 1-0 Module, 

Environment Division in, 
7-5 

Indexed 1-0 Module, 

Procedure Division in, 
7-11 

Indexing, 2-13 
Index Data Items, 4-4 
Index-Names, 4-4 


Indicator Area, 1-4 

Input-Output Section, 5-4, 6-5, 
7-5 

Input-Output Status, 5-1, 6-1, 
7-2 

Insertion Editing Rules, 

Fixed, 3-16 

Insertion Editing Rules, 
Floating, 3-17 

Insertion Editing Rules, 

Simple, 3-16 

Insertion Editing Rules, 
Special, 3-16 

INSPECT Statement, 3-51 

Inter Program Communication 
Module, 11-1 

Inter Program Communication 
Module, Data Division in, 

11-1 

Inter Program Communication 
Module, Procedure Divisipn 
in, 11-3 

INVALID 'KEY Condition, 5-3, 

6-3, 7-4 

1-0 Control Paragraph, 5-6, 

6-7, 7-7 


J 


JUSTIFIED Clause, 3-10 


K 


Keys, Status, 5-1, 6-2, 7-2 


L 


LABEL RECORDS Clause, 5-10, 
6-10, 7-10 

Language Concepts, 2-1, 5-1 
6-1, 7-1 

Language Structure, 2-1 
Levels, Concept, 2-8 
Levels, Number, 2-9, 3-11 
Library Module, 9-1 
Lines, Blank, 2-25 
Lines, Comment, 2-27 
Lines, Continuation of, 2-25 
Lines, Debugging, 10-1 
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Linkage Section, 11-1 
Literals, Nonnumeric, 2-6 
Literals, Numeric, 2-6 


M 


Mnemonic-Name, 2-4 
Mode, Access, 5-1, 6-1, 7-1 
MOVE Statement, 3-57 
MULTIPLY Statement, 3-60 


N 


Name, Condition, 2-4 
Name, Mnemonic, 2-4 
Name, Paragraph, 2-4 
Name, Section, 2-4 
Name, System, 2-4 
Name, User-Defined, 2-4 
Nonnumeric Literals, 2-6 
Nucleus, Environment Division 
in, 3-3 

Nucleus, Function, 3-1 
Nucleus, Identification 
Division in, 3-1 
Nucleus, Organisation, 3-1 
Nucleus, Procedure Division 
in, 3-30 

Nucleus, Structure, 3-1 
Number, Level, 2-9, 3-11 
Number, Sequence, 1-4, 2-25 
Numeric Data Division in, 

3-6 

Numeric Data Rules, 3-13 
Numeric Edited Data Rules, 
3-13 

Numeric Literals, 2-6 
Numeric Operands, Comparison 
of, 3-31 


0 


OBJECT-COMPUTER Paragraph 

3- 3 

OCCURS Clause, 4-1 
OPEN Statement, 5-13, 6-15, 
7-13 

Operand Comparison, 3-31 
Operand, Overlapping 3-35 

4- 4 


Organisation Data Division, 
2-18 

Organisation Environment 
Division, 2-17 
Organisation Identification 
Division, 2-16 

Organisation, Indexed Input- 
Output Module, 7-1 
Organisation, Nucleus, 3-1 
Organisation, Procedure 
Division, 2-20 

Organisation, Relative Input- 
Output Module, 6-1 
Organisation, Segmentation, 
8-1 

Organisation, Sequential 
Input-Output Module, 5-1 
Overlapping Operands, 3-35, 
4-4 


P 


Paragraph, DATA-COMPILED, 

3-2 

Paragraph, FILE-CONTROL, 5-4 
6-5, 7-5 

Paragraph Format, 2-25 
Paragraph, 1-0 CONTROL, 5-6, 
6-7, 7-7 

Paragraph-Name, 2-4 
Paragraph, OBJECT-COMPUTER, 

3-3 

Paragraph, PROGRAM-ID, 3-2 
Paragraph, SOURCE-COMPUTER, 

3-3 

Paragraph, SPECIAL-NAMES, 3-4 
PERFORM Statement, 3-61, 8-4 
Phrase, ROUNDED, 3-34 
Phrase, SIZE ERROR, 3-34 
PICTURE Character Strings, 2-8 
PICTURE Clause, 3-12 
Portion, Fixed, 8-1 
Precedent Rules, 3-18 
Procedures, 2-20 
Procedure Division, 2-21 
Procedure Division, Body, 2-21 
Procedure Division, 
Declarations, 2-20 
Procedure Division, Execution, 
2-20 

Procedure Division,. General 
Format, 2-21 

Procedure Division Header, 
2-21, 11-3 
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Procedure Division in the 
Indexed 1-0 Module, 7-11 
Procedure Division in t;he 
Interprogram Communication 
Module, 11-3 

Procedure Division in the 
Nucleus 3-30 

Procedure Division ’in the 
Relative 1-0 Module, 6-12 
Procedure Division in the 
Sequential 1-0 Module, 5-11 
Procedures, 2-20 
PROGRAM-ID Paragraph, 3-2 
Programing Techniques, 12-1 
Program Segments, 8-1 
Program Structure, 1-2, 2-15 
8-3 


Q 


R 


READ Statement, 5-16, 6-17, 

7-16 

RECORD CONTAINS Clause, 5-10, 
6-10, 7-10 

Record Description Format, 

2-24 

Record Description Structure, 

5- 7, 6-8, 7-8 

Record Pointer, Current, 5-1, 

6- 1, 7-1 

REDEFINES Clause, 3-21 
Reference, Uniqueness of, 

2-12 

Relation Condition, 3-30 
Relation Condition, Table 
Handling, 4-4 

Relative Input-Output Module, 
Data Division in, 6-8 
Relative Input-Output Module, 
Environment Division in 

6- 5 . 

Relative Input-Output Module, 
Procedure Division in, 6-12 
Reserved Words, 2-28 
REWRITE Statement, 5-18, 6-20 

7- 19 

ROUNDED Phrase, 3-34 

Rules, Alignment, Standard 2-12 


Rules, Alphabetic Data, 3-12 
Rules, Alphanumeric Data, 3-13 
Rules, Alphanumeric Edited 
Data, 3-13 

Rules, Editing, 3-15 
Rules, Editing, Fixed 
Insertion, 3-16 
Rules, Editing, Floating 
Insertion, 3-17 
Rules, Editing, Simple 
Insertion, 3-16 
Rules, Editing, Special 
Insertion, 3-16 
Rules, Editing, Zero 
Suppression, 3-18 
Rules, Elementary Item Size, 
3-13 

Rules, General, 1-3 
Rules, Numeric Data, 3-12 
Rules, Numeric Edited Data 
3-13 

Rules, Precedence, 3-18 
Rules, Symbols Used, 3-14 
Rules, Syntax, 1-3 
Run Time Debug, 10-1 


S 


SECTION, CONFIGURATION, 3-3 
SECTION, FILE, 5-7, 6-8, 7-8 
Section Format, 2-25 
Section Input-Output 5-4, 6-5, 
. 7-5 

Section, Linkage, 11-1 
Section Name, 2-4 
SECTION, WORKING-STORAGE, 3-6 
Segmentation, 8-1 
Segmentation Classification, 
8-2 

Segmentation Control, 8-2 
Segmentation Organisation, 8-1 
Segments, Program, 8-1 
Segments, Independent, 8-1 
Selection of Character 
Representation and Dadix 
2-10 

Sentences, 2-21 
Separators, 2-1 
Separators, Compiler 
Directing, 2-22 
Separators, Conditional, 2-22 
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Separators, Imperative, 2-23 
Sequence Number, 1-4, 2-25 
Sequential Input-Output 
Module, 5-1 

Sequential Input—Output 
Module, Data Division in, 

5-7 

Sequential Input-Output 
Module, Environment 
Division in, 5-4 
Sequential Input-Output 
Module, Procedure Division 
in, 5-12 

SET Statement, 4-4 
SIGN Clause, 3-21 
Signs, Algebraic, 2-12 
Simple Conditions, 3-30 
Simple Insertion Editing 
Rules, 3-16 

SIZE ERROR Phrase, 3-34 
Sizing, 12-1 

SOURCE-COMPUTER Paragraph, 

3-3 

Source Format, 1-4 
Special Insertion,Editing 
Rules, 3-16 

SPECIAL-NAMES Paragraph, 3-4 
Standard Alignment Rules, 

2-12 

START Statement, 6-22, 7-21 
Statement, ACCEPT, 3-36 
Statement, ADD, 3-39 
Statement, ALTER, 3-41, 8-4 
Statement, CALL, 11-4 
Statement, CANCEL, 11-5 
Statement, CLOSE, 5-12, 6-12 
7-11 

Statement, COPY, 9-2 
Statement, DELETE, 6-13, 7-12 
Statement, DISPLAY, 3-42 
Statement, DIVIDE, 3-44 
Statement, ENTER, 3-46 
Statement, EXIT, 3-47 
Statement, EXIT PROGRAM, 3-48 
Statement, GO TO, 11-6 
Statement, IF, 3-49 
Statement, INSPECT, 3-51 
Statement, MOVE, 3-57 
Statement, MULTIPLY, 3-60 
Statement, OPEN, 5-13, 6-14, 7-13 


Statement, 

PERFORM, 3-61, 3- 

Statement, 

READ, 5-16, 6-17, 

7-16 

Statement, 

REWRITE, 5-18, 6-: 

7-19 

Statement, 

SET, 4-4 

Statement, 

START, 6-22, 7-21 

Statement, 

STOP, 3-65 

Statement, 
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